
C/Duque de Sesto, 50. 28009 Madrid 
Tel. (91) 275 96 16 - 274 75 02 
Metro O'Donnell o Goya (aparcamiento gratuito en Felipe II) 



soFigfoos PR° GRAMAS ' 

P "^ a ELEGIR 

RELOJ D |6ITA . 

JJSadoRaextbap^ 



PTAS. 

FIST il 875 

DEEP STRIKE 875 

SUPER SOCCER 875 

TERRA CREST 875 

DOUBLE TAKE 875 

SHORT CIRCUIT 875 

GAUNTLET 875 

ARMYMOVES 875 

BREAKTHRU 875 

4 SUPER 4 1750 

¡¡NOVEDADES KQNAMI . 




XEVIOUS 875 

lOfh FRAME 1200 

LEADERBOARD 1200 

EXPRESS RAIDER 875 

ACE OF ACES 1200 

IMPOSSABALL 

S1GMA 7 : 

BAZZOKA BILL . . . 
DRGON'S LAIR II 
SHADOW SKIMMER 

1850 PTSÜ 



IMPRESORAS 20% DESCUENTO SOBRE P.V.P. 





PTAS. 


DISKETTE 3" 


735 


DISKETTE 5 1/4" DC/DD 


295 


LÁPIZ ÓPTICO SPECTR 


2890 


LÁPIZ ÓPTICO AMSTRAD 


3290 


CINTA C-15 ESPEC 


69 


MICRODRIVE 


495 


ARCHIVADOR DISCOS 


... 2600 



CASSETE ESPECIAL ORDENADOR 3.495 PTS. Y 3.995 PTS 



COMPATIBLE PC-IBM 640 K 
2 BOCAS 360 K 
MONITOR FÓSFORO VERDE 
149.900 PTS. (ind. IVA) 



I 





PTAS. 


SANYO MSX 64 


28.900 


COMMODORE 128 


54.900 


COMMODORE 128 + TECL MUSICAL 


57.900 



SERVICIO TENICO REPARACION TARIFA FIJA: 3.600 PTS 
(incl. provincias sin gastos envío) 

SPECTRUM PLUS + CASCOS MÚSICA STEREO 
19.800 PTS (incl. IVA). 



CABLES E INTERFACES 
20% DTO. SOBRE P.V.P. 



CADENA MUSICAL 27.900 PTS. 
VIDEO VHS AKAI 79.900 PTS. 
RADIOCASETTE STEREO 6.895 PTS. 



AMSTRAD 464 VERDE 
AMSTRAD 464 COLOR 
AMSTRAD 6128 VERDE 
AMSTRAD 6128 COLOR 



ENTRADA 7.000 PTS. 12 MESES A 4.900 PTS. 
ENTRADA 9.800 PTS. 12 MESES A 7.500 PTS; 
ENTRADA 8.900 PTS. 12 MESES A 7.182 PTS. 
ENTRADA 14.900 PTS. 12 MESES A 9.900 PTS. 



12 MESES CON EL 0% DE INTERÉS. ¡¡MICRO-1 TE LO FINANCIA GRATIS!! 



RATON PARA AAAASTRAD Y COMMODORE CON SOFTWARE 6.900 PTS. 



PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO 

LLAMA POR TELÉFONO. ADELANTAS TRES DÍAS TU PEDIDO 

TELF. (91) 274 75 02 / (91) 275 96 16 (DURANTE LAS 24 HORAS) 

TIENDAS Y DISTRIBUIDORES, PIDAN LISTA DE PRECIOS AL MAYOR. 
Ü CALATEA, 25. TELF. (91) 274 75 03 
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DIRECTOR: Manuel Pérez 
DIRECTOR DE ARTE: Luís F Baiaquer 
REALIZACION GRAFICA: Diclac lúdela 

COLABORADORES: Antonio Pliego, Xavier Ferrer, 
I Josep M.' GÜs. Christoptie Rais,' Jaime Mardones. 
Equipo MoUsof!, Caries Bario torné, Ramón "OI l é . 
Angeís Alvarez 

FOTOGRAFIA: Ernesto Waisck Joan BoarJa 

' INPUT Commodore es una pjfelicacion de 
PLANETA-DE AGOSTINI. S.A. 
GERENTE DIVISION DE REVISTAS: 



PUBLICIDAD: sé Fíea Grupo Jota 

Te». 270 4/ 02 03 

TeSft 250 23 99 

FOTOMECASífCA: E~ - SA 

IMPRESION: ; ----- 
i c '.-r: . - :- fe C£C:3 Barcelona 
Depósito ¡ega! 8 38.114-1985 

SUSCRIPCIONES: E." - 

Lope¿ *HG>K MI 28QG2 Madrid 

REDACCION: 

08021 Barcesora 
DISTRIBUIDORA: 

RBA PROMOTORA 0£ EKCKMS. SA 
Calie B. fC 11 Sed* R Zara Franca 
08004 Barceicna 

- ti precio sera S nésn» pasa Cansías que para la 
Península y en & sá ¡notada ia sobretasa aérea. 

INPUT Commodore es uns publicación 
controlada por 

Commodore Business Mas* rss o sls distrib^^^^^ 

* INPUT no mantiene OHrespondencía can sis iectores. t\ 
bien ia recibe, no rs5»nsar>:!i?ándose de su pérdida o 
extravio Las respuestas se canalizaran a través de las 
secciones adecuadas en eslas páginas. 

© 1987 by Planeta-De Agostini. SA 

Copyright ilustraciones del fondo gráfico de Marshal! 
GaVendlsh 



APLICACIONES 

AMPLIA TU CURSO 

DE MECANOGRAFIA 

EL ORDENADOR A LA ESCUCHA 



PROGRAMACION 

EVITANDO ERRORES 
LA LUNA A TUS PIES 
AZAR Y PROBABILIDAD 



CODIGO MAQUiNA 

ABISMO: PROGRAMA 
UN JUEGO COMPLETO 



PARTICIPA 

PROGRAMA MULTIGESTION (I) 



REVISTA DE SOFTWARE 

ULTIMAS NOVEDADES 



EL ZOCO DE INPUT 



PROGRAMACION DE JUEGOS (COLECCIONABUE) 

FRUTAS Y COCO 

EL ZORRO Y LAS OCAS (I) 



toiwmi 



NUEVAS NECESIDADES 
DE LOS USUARIOS 



a medida que pasa el tiempo y los usua- 
/■ rios conocen mejor los equipos con 
/ 1 los que trabajan, sus demandas hacia 
los medios de comunicación especializados, 
también se modifican. 

INPUT no podía permanecer insensible a 
esas nuevas tendencias, tan naturales como el 
paso del tiempo, y decidió ir renovándose a 
sí misma. 

Ya habréis observado que tanto en algunos 
contenidos como en las presentaciones, en 
números anteriores, se han introducido no- 
vedades. En este ejemplar que ahora tenéis 
en vuestras manos los cambios ya afectan a 
una parte considerable de la revista. 

De entrada debemos aclarar que en ningún 
caso se pretende romper con una tradición 
que ha conectado muy bien con los deseos de 
nuestros lectores, como nos consta por la 
aceptación y venta de INPUT y por las nu- 
merosas cartas que en la redacción se reciben 
todos los meses. 

Sí se anhela, en cambio, dar cabida a esas 
nuevas necesidades que antes mencionába- 
mos. No es un reto fácil, pues se trata de in- 
tentar conciliar cosas aparentemente tan con- 
tradictorias como la información más com- 



pleta sobre videojuegos y todo el entorno que 
ello comporta, por un lado, y el diseño y pre- 
sentación de utilidades, aplicaciones y nocio- 
nes de programación de forma educativa, 
clara, comprensible y amena, por otro. 

Esta necesidad permanente de formación 
se inscribe en el marco de una oferta infor- 
mática que siempre ofrece más a un menor 
coste. Lógicamente, quienes hoy comienzan 
con pequeños micros domésticos operarán 
mañana con potentes ordenadores persona- 
les. En esta perspectiva el poso de conoci- 
mientos generado en la primera fase será de 
incalculable utilidad en el futuro. 

Así pues, el mundo de la informática, y 
aunque con rasgos propios la microinfor- 
mática doméstica forma parte de él, tiene que 
construir una nueva forma de hacer que for- 
zosamente pasa por conseguir que su presen- 
cia sea imprescindible tanto a la hora de tra- 
bajar como a la de jugar. En este empeño 
INP UT continúa a vuestro servicio pensando 
siempre en ofreceros cosas nuevas a la vez 
que prácticas. 

Vosotros sois quienes finalmente decidiréis 
si, con tales fundamentos, INPUT responde 
plenamente a vuestras demandas. 



4 INPUT 



AMPLIA TU CURSO 
DE MECANOGRAFIA 



Esta vez puedes extender tu pericia a 
las teclas de números y a todos los res- 
tantes símbolos del teclado. Hay además 
un programa de juego que te ayudará a 
aumentar todavía más tu rapidez en la 
escritura. 

Si has trabajado ya con el instructor 
mecanográfico que publicamos en IN- 
PUT. estarás familiarizado con todas 
las teclas de letras y de puntuación de 
las tres hileras inferiores del teclado. 
Pero aún no has tocado las siempre 
importantes (en los listados de progra- 
mas) teclas numéricas, ni has apren- 
dido cómo modificar las teclas para 
obtener letras mayúsculas o minúscu- 
las, así como los símbolos adicionales 
y de puntuación disponibles. 

El programa de esta sección te 
muestra cómo añadir todo esto a tus 
crecientes habilidades mecanogr afl- 
eas. Además, hay un ejercicio que te 
permitirá incrementar tu velocidad, tu 
seguridad y tu ritmo. Y además es di- 
vertido. 



ADICION DE LOS NUMEROS 

Al igual que con el programa ante- 
rior la adición de la línea de números 
del teclado puede llevarse a cabo con 
una simple modificación del programa 
original utilizado en las lecciones an- 
teriores. Para ello, carga el último 
programa y teclea estas líneas adicio- 
nales. Algunas de ellas sustituyen a lí- 
neas existentes, mientras que otras 
van numeradas de modo que queda- 
rán incluidas entre las que ya tienes. 

10 DIM W$(21), W0SÍ28): FOR 
1=1 TO 28: READ WO$(Z): 
NEXT 

20 FOR Z=l TO 40: LI$ = LI$ + "- 

"IN EXT :LI$=" 

[CTRL+2]" + LI$ 
30 PRI NT'TSHI FT+CLR/HOME] 



[CTRL + 8]"TAB(7)"*****ME 

CANOG RAFIA*****" 
40 A$="1A2S3D4F5G6H7J8K 

9L0: ":POKE 54296, F515 

:GOTO380 
50 TI$="000000" : S = 0:WW=1 
60 N = 0:POKE198,0 
70 IFK = 5ANDP>0THENN = N + 1 

:P = P+1:GOTO140 

80 PRINT"[CLR/H0ME][8*CRSR 
ABAJO]" :IFK<3THEIMPRI NT 
TABÜ0) 

"[CTRL+4J1CTRL + 9]" 
A$POKE198,0 
90 X=INT(RND(1)*20) + 1 

:N = N + l:P=P+l':IFK=l 

THENX = N:GOTO120 

100 I FK = 3THENX= I NT 

(RND(1)*20) + 1:PRINT TAB 
Ü8)"[CTRL + 4][C0MM + A]- 
[COMM + S][CRSRABAJO][ 
3*CRSRIZQDA.]l[CTRL + 6]" 
MID$(A$,X,1) 
"[CTRL+4][CRSRABAJ0][ 
3*CRSRIZGDA.][C0MM + Zj- 
[COMM + X]" 

110 I FK = 4THENPRINT 

TAB(16)"[CTRL + 4j[12 
ESPACI0S][12*CRSRIZQDA. 
]"W$(WW):X = N + 6 

120 I FK<30R K = 4THENPRINT 
"[CLR/HOME][7*CRSR 
ABAJO]"TAB(10 + (X- 
l))"[CTRL+2]*" 

130 IFK=5THENF0RZ=1T0 

5:PRINT"[CTRL + 8]"W$(Z) ; 
:NEXTZ ; PRINT:PRINT 
"[CTRL + 9HCTRL + 4"; 

140 GETK$:IFK$ = ""THEN140 

150 IFK>3AND 

K$MID$(W$(WW),N1) 
THEN210 

160 IFK>3THEN180 

170 IFK$ = MID$(A$',X,1) 
THEN210 



■ 


UN PASO MAS 


■ 


ADICION DE LOS NUMEROS 


Y EL RESTO DEL TECLADO 


■ 


MAS SIMBOLOS 


CON LA TECLA SHIFT 



180 
190 

200 

210 
220 



230 
240 

250 
260 
270 

280 

290 
300 



W = 54276:A = 54277 

POKEW,33:POKEA,50:POKE 

54273, 30:S = S + 1 

POKE54273,0:POKEW, 

32:GOTO140 

W = 54276:A = 54277 

1FK<30RK = 4THENPRINT ' 

í, [CLR/HOME][7*CRSR 

ABAJO]"TAB(10 + (X-1))"" 

IFK = 5THENPRINTK$; 

POKEW,33:P0KEA, 

5O:POKE54273,150 

POKE54273,0:POKEW,32 

IFK= 1 ANDN<20THEN70 

IFK>3ANDN<LEN(W$(WW)) 

THEN70 

!F(K<4ANDK>1)ANDN<20 
THEN70 

IFK>3THENNEXTWW 
WW=VAL(MID$(TI$,3, 




INPUT 5 



2))*60+VAL(RIGHT$(TI$,2)) 
: : : rr ¡NT 

;3TRL + 0][SHIFT+CLR/ 400 
-OME]"LI$;:PRINT 
• ; [CTRL+8][6 410 

espaciosjhastardado: 

;ctrl + 5]"ww"seg." 
;:; pr¡nt"[ctrl+8]errores 420 

cometidos:[ctrl + 5]"s 
530 ifk>3thenprint"[crsr 430 

abajo]"tab(7)int(10*nu/ 

ww)"[ctrl+2]palabras 440 

porminuto." 
340 printl!$:goto530 
350 nu = 0:p=0:s = 0:forww=1 

tomm:w$(ww)=wo$(int 450 

(RND(1)*28)+1) 
360 IFK = 5ANDWW<>5 

THENW$(WW) = W${WW) + "'' 
370 NU = NU + LEN(W$(WW)): 460 

NEXTWW:TI$ = "000000" 

:FORWW=1TOMM:GOTO60 
380 POKE53280;6:POKE53281, 

0:POKE198,0 470 
390 PRINT"[CLR/HOME][ 

10*CSRSABAJO][CTRL + 2]" 



TAB(15)"OPCIONES[CRSR 480 
ABAJO][CTRL + 6]" 
F0RZ=1T05:PRINT 490 
TAB(13)Z;":TEST ,, ; Z:NEXTZ 
PRINT 

TAB(12)"[CTRL + 2][CRSR 
ABAJO] ENTRAR OPCION..." 500 
GETK$:K = VAL(K$):IFK<1 
ORK>5THEN420 510 
PR1 NT'TSHI FT+CLR/ 
HOME]"Ll$"[CTRL+6]" 520 
IFK<3THENPRINT"[CRSR 530 
ARRIBA] PULSA LATEOLA 
INDICADACONEL 540 
ASTERISCO"; 
!FK = 3THENPRINT"[CRSR 
ARRIBA]TECLEA LA LETRA 
QUEAPARECEEN 550 
PANTALLA."; 

IFK = 4THENPRINT"[CRSR 

ARRIBA]TECLEALAPALABRA 

QU ESALEEN PANTALLA[2 560 

ESPACIOS]";:MM = 20 

1FK = 5THENPRINTTAB 

{12)"[CRSRARRI BA]TECLEA 

ESTASPALABRAS":MM = 5 



PRINTLI$:FORZ=lTO 

1000:NEXT 

PRINT 

TAB{11)"[CTRL+2]PULSA 
UNATECLAPARAEMPEZAR" 

:POKE198;0:WAIT198;1 

PRINTTABd D'TCRSR 
ARRIBA][29ESPACIOS]" 
ONKGOTO50, 50,50, 350, 
350 

GOTO380 

FORZ=1TO1000:NEXT 
Z:GOTO380 

DATAR6502,COM64,VIC20, 
COM128,10SEG,MAR87, 
DOS5,l,27ABRIL,12DIAS, 
D8M3A87 

DATA312KG,1836M, 

ORGC000,SYS49152, 

LIST80,GEN12,LINK32, 

MIL37,RS232C 

DATADIN49152,CD4027, 






INPUT 




SN74123N,MC1488, 

TIL111.M14412,XR320, 

ZN427.ICL8038 

AI ejecutar el programa, se te pe- 
dirá que selecciones uno de los cinco 
niveles ya familiares. Estos son simi- 
lares a los de antes, con la adición de 
ios caracteres nuevos. En los niveles 
inferiores, se te pedirá que mezcles co- 
rrectamente números, y algunas veces 
signos de puntuación, con las teclas 
existentes. Esto te resultará difícil, ga- 
rantizando que no puedas concen- 
trarte simplemente en los números, 

A continuación, en los niveles su- 
periores, se te pedirá que teclees una 
mezcla de palabras, grupos de núme- 
ros y grupos Formados por una mezcla 
de letras y números. Verás las pala- 
bras y los números seleccionados en 
las instrucciones DATA próximas al 



Cuando domines las teclas de nú- 
meros, habrá llegado el momento de 
pasar a la siguiente lección. Esta te 
proporcionará la práctica necesaria 
para obtener los caracteres para los 
cuales se debe pulsar la tecla SHIFT. 

LA TECLA SHIFT 

Esta vez, las líneas adicionales del 
programa te darán la posibilidad de 
utilizar la tecla SHIFT. Como antes, 
dichas ¡incas sustituirán a las lincas 
existentes o se incluirán entre ellas: 

10 DIM W$(21) ; W0$(28):F0R 

2=1 TO 28: READ 

WO$(Z):NEXT 
20 FOR Z = l TO40:LI$ = Ll$ + "-" 




final del programa. Si lo deseas, pue- 
des modificarlas al cabo de cierto 
tiempo, va que de lo contrario llega- 
rías a familiarizarte demasiado con lo 
que el ordenador va a pedirte que ha- 
gas y no se trataría ya de un auténtico 
desafío. Pero recuerda mantener el 
mismo número de palabras (o de gru- 
pos de caracteres) o el ordenador no 
podrá leer la cantidad correcta de da- 
tos. 



: NEXT 

:LI$ = "[CTRL+2]" + LI$ 
30 PRINT "[SHIFT+CLR/ 
H0ME][CTRL + 8]"TAB(7) 
MECANOGRAFIA ****'■ 
40 PRINT 

CHR$(8)CHR$(14J:P0KE 
54296; 15:G0T0 380 



50 TI$ = "000000":S = 0:WW=1 
60 N=0:POKE 198,0 
70 IF K = 5 AND P>0 

THENN = N + 1:P = P+1:G0T0 

140 

80 PRINT"[CLR/H0ME][8*CRSR 
ABAJO]": IFK<3THENPRI NT 
TAB(10)"[CTRL + 4][CTRL 
+ 9]"A$:POKE198 ; 
90 X=INT (RND(1)*20)+1 
: N = N + 1 :P = P+1:IF K = l 
THENX = N:GOTO 120 
100 IF K = 3 THENX=ÍNT(RND 
Ü)*20)+1:PRINTTAB<18 . 
)"[CTRL + 4][C0MM + A]-[C0 
MM+SHCRSR ABAJO][ 3* 
CRSR IZQDA.HSHIFT+IHC 




TRL + 6] ,Í MID$[A$ T X,1) M [CT 
RL + 4][SHIFT + 1][CRSR A 
BAJO][ 3*CRSRIZQDA.][C0 
MM + ZHCOMM+X]" 
110 |F K = 4 THENPRI NT 
TAB(16)"[CTRL+4][ 12 
.ESPACIOS]! 12*CRSR 
IZQDA.rW$(WW):X=N + 6 
120 IF K<3 OR K = 4 

THENPRINT "[CLR/HOM E][ 
7*CRSR 

ABAJO]"TAB(10 + (X- 
l))"[CTRL + 2]*" 
130 |F K = 5 THENFOR 1=1 TO 
MM:PRINT 

"ICTRL+8]"W$(Z) ; :NEXT 
Z:PRINT :PRINT 
"[CTRL + 9][CTRL + 4] M ; 
140 GET K$:IF K$ = "" THEN140 



INPUT 7 



150 



160 
170 

180 
190 



200 

210 
220 



230 
240 



260 
270 



IF K>3 AND 

K$ = M!D$(W$(WW),N,1) 

THEN210 

IF K>3 THEN180 

IF K$ = MID$(A$,X,1) 

THEN210 

W=54276:A = 54277 
POKE W, 33:POKE A, 
50:POKE 54273, 

30:S = S+1 

POKE 54273, 0:POKE W, 
32:GOTO 140 ' 
W=54276:A=54277 
IF K<3 OR K=4 
THENPRI NT "[CLR/HOME][ 
7*CRSR 

ABAJO]"TAB(10 + (X-1))" " 
IF K = 5 THENPRINT K$; 
POKE W, 33:POKE A, 
50:POKE 54273, 150 
POKE 54273, 0:POKE W, 
32 

IF K = l AND N<20 THEN70 
IF K> 3AND 



280 

290 
300 



310 



N<LEN(W$(WW)) THEN70 

IF (K<4 AND K>1) AND 

N<20 THEN70 

IF K>3 THENNEXT WW 

WW=VAL(MID$(TI$,3, 

2))*60 + VAL(RIGHT$(TI$, 

2)) 

PRINT 

"[CTRL+0][SHIFT+CLR/ 
HOME]"LI$;:PRINT 
"[CTRL+8H6ESPACIOS] 
HASTARDADO:[CTRL + 5] 



"WVTSEG." 
320 PRINT "[CTRL + 8JERR0RES 

COMETIDOS:[CTRL + 5j"S 
330 IF K>3 THENPRINT "[CRSR 

ABAJO]"TAB(7)INT (10*NU/ 

WW)"[CTRL+2]PALABRAS 

POR MINUTO. '.' 
340 PRINT LI$:GOTO 530 
350- NU = 0:P=0:S = 0:FOR 

WW=1 TO 

MM:W$(WW) = WO$(INT 
(RND(1)*28) + 1) 
360 IF K=5 AND WW<>4 

THENW$(WW) = W$(WW)+" " 
370 NU = NU + LEN{W$(WW)) 

:NEXT WW:TI$ = "000000": 





Aplicación^ 




380 
390 



400 
410 



FOR WW=1 TO MM:GOTO 60 
POKE 53280, 6:POKE 
53281, 0:POKE 198, 
PRINT "[CLR/HOME][ ' 
10*CRSR 

ABAJO][CTRL+2]"TAB(15) 
"OPCIONES[CRSR 
ABAJO][CTRL + 6]" 
FOR 1=1 TO 5:PRINT 
TAB(13)Z ; ":TEST"; Z:NEXTZ 
PRINT 

TAB(12)"[CTRL+2][CRSR 
ABAJO]ENTRAR OPCION..." 
GET K$:K=VAL(K$):IF K<1 
OR K>5 THEN420 



PALABRA QUE SALE EN 
PANTALLAt 2 ESPACIOS]"; 
:MM=20 
470 IF K = 5 THENPRINT 
TAB(12)"[CRSR 
ARRIBAJTECLEA ESTAS 
PALABRAS": MM =4 

472 PRINT LI$:A$ = "":FOR Z=l 
TO 10:G1=65 + RND(1)*26 

473 Q2-35 + INT (RND(1)*23) 

474 IF RND(1)>.50 
THENQ1=Q1+128 



P9V3481 f C6M4A,R3DY7L ( 

6510CPU,416RAM,Q023AS J 

1HDPQ0 

Cambia a modo minúsculas/gráficos 
para entrar las instrucciones DATA. 

Ahora, los niveles inferiores del test 
te presentan todos los caracteres que 
están disponibles solamente cuando 
las teclas se pulsan junto con la tecla 
SH1FT, símbolos de puntuación, ma- 



430 PRINT "[SHIFT+CLR/ 

H0ME]"LI$ ,, [CTRL+6] M 
440 IF K<3 THENPRINT "[CRSR 

ARRIBA]PULSA LA TECLA 

INDICADA CON EL 

ASTERISCO"; 
450 IF K = 3 THENPRINT "[CRSR 

ARRIBAJTECLEA LA LETRA 

QUE APARECE EN 

PANTALLA."; 
460 IF K = 4 THENPRINT "[CRSR 

ARRIBAJTECLEA LA 



480 A$=A$+CHR$(Q2) + CHR$ 
(Q1):NEXT 

PRINTTAB(ll)"[CTRL + 2] 
PULSAUNA TECLA PARA 
EMPEZAR": POKE 198 ; 0: 
WAIT198;1 
500 PRI NTTAB(1 U'TCRSR 

ARRIBA][29ESPACI0S]" 
510 ONKGOTO50 t 50,50,350, 

350 
520 GOTO380 
530 FORZ = 1TO1000:NEXT 

Z:GOTO380 
540 DATAR2D2,VIC20,COM64, 
1A2B,15,2,87,EDAD16, 
HASTA7,TIENES2,A37NO, 
1SEG. 

550 DATA9H53B, 16/92, P5V, 
19A52,SALTA.5,1987, 
ZN432, 7/12/1990, WE4AN1 

560 DATAX24ZN,Q3C457, 



temáticos, etc. Para hacértelo más di- 
fícil van mezclados con las letras ori- 
ginales de cada tecla, lo que significa 
que tienes que hacer ir y venir los de- 
dos cada vez. 

En los niveles superiores, tienes 
ahora una lista de palabras y de grupos 
de palabras al igual que antes, excepto 
que esta vez encontrarás mayúsculas y 
símbolos mezclados con minúsculas. 
Tu ordenador comprobará tu veloci- 
dad y tu precisión en dichas palabras 
y grupos de caracteres. Si ves que lo 
haces demasiado bien en estos ejem- 
plos concretos, puedes en cualquier 
momento montarte tu mismo un 
nuevo conjunto de datos. Sin em- 
bargo, debes recordar que hay que 
conservar igual el número total de da- 
tos. Cuando puedas encontrar todos 
los caracteres del teclado, sin mirar y 
sin vacilar, podrás pasar a la sección 
siguiente. 



JUEGO DE VELOCIDAD 

Es el momento de pensar en incre- 
mentar tu precisión y tu velocidad. 
Uno de los mejores modos de lograrlo 




INPUT 9 



consiste en teclear siguiendo los tiem- 
pos de un metrónomo, o algo similar, 
lo que mejorará tu regularidad y tu 
ritmo. A continuación, a medida que 
aumente tu destreza, puedes aumen- 
tar la rapidez del metrónomo y, por 
tanto, la de tus pulsaciones. 



RECURRIENDO AL RELOJ 
INCORPORADO 

Pero ¿por qué utilizar un metró- 
nomo si tu ordenador dispone de un 
reloj incorporado? El siguiente pro- 
grama es un completo y nuevo ejer- 
cicio de mecanografía dispuesto en 
forma de juego, en el cual tu puntua- 
ción dependerá de cuan bueno seas 
con el teclado. Consta de dos partes. 
La primera parte visualiza una línea 
de caracteres seleccionados de modo 
aleatorio, que tú deberás teclear en el 
mismo orden en que aparecen. La se- 
gunda parte es más difícil, ya que 
ahora los caracteres aparecen aleato- 
riamente en la pantalla uno a uno, de 
modo que no tengas ningún indicio de 
cuál es el que viene a continuación. 

Antes de empezar el test, puedes se- 
leccionar tu propio nivel de dificultad. 
Esto se lleva a cabo diciendole al or- 
denador a qué velocidad quieres que 
se visualicen las letras, es decir cuán- 
tos caracteres por minuto deseas te- 
clear. Entonces, el ordenador te dará 
un tiempo limitado en el cual debes te- 
clear cada carácter, dándote en caso 
contrario un punto de error. En el pri- 
mer nivel esto se traduce en un indi- 
cador móvil que te muestra qué letra 
deberías estar tecleando, mientras 
que, en el segundo nivel, es el propio 
carácter el que se muestra parpa- 
deando solamente durante un inter- 
valo de tiempo determinado. 

Antes de que empieces el primer 
test, puedes elegir si deseas el teclado 
normal (sólo letras) o el teclado ex- 
pandido (todos los símbolos). Ade- 
más, antes de que empieces el se- 
gundo nivel (el test de caracteres), 
puedes decidir su duración. Se te pe- 
dirá cuántos caracteres deseas en total 
en el test. Cuando el ordenador los 
haya visualizado todos, se parará y te 
dará una puntuación basada en tus 
errores. 



No es sólo la velocidad media lo que 
mide el ordenador en este test, ya que 
debes mantener un ritmo uniforme. 
Esto será realmente beneficioso para 
quien desee incrementar su velocidad 
general de escritura. Para ayudarte a 
adquirir la costumbre, el ordenador te 
dará una señal acústica junto al indi- 
cador visual correspondiente a cada 
letra. 

Ahora teclea el programa y pon a 
prueba tu habilidad: 

10 FOR Z=1T0 40:LI$ = LI$ + "- 
" : N EXT :LI$ = "[CTRL + 2]" 
+ LI$ 

20 PRINT"[SHIFT+CLR/ 

H0ME][CTRL + 8]"TAB(7)"*** 
MECANOGRAFIA ***" 

30 PRINT 

CHR$(8)CHR$(14):P0KE 
54296, 15:GOT0 260 

40 S = 0:WW=1:ER = 0:NM = 0: 
N = 

50 POKE53280 ; 5 

60 PRINT"[CLR/H0ME][5*CRSR 

ABAJO]"; :l FK = 1THENPRI NT 

"[CTRL + 4][CTRL 

+ 9]"TAB(10)A$:POKE198,0 
70 X=INT(RND(1)*20)+1:N = 

N + 1:P=P+1:IFK = 1 

THENX = N:GOTO90 

80 IFK = 2THENX= I NT 
(RND(1)*20)+1:PR!NT 
TAB(18)"[CTRL+4][C0MM + 
AHCOMM + SHCRSRABAJOU 
3*CRSRIZQDA.][SHIFT+I] 
[CTRL+6]"MID$(A$,X, 
1)"[CTRL+4][SH!FT + I][CRSR 
ABAJ0][3*CRSR 
IZQDA.HCOMM + Z]- 
[COMM + X]" 

90 IFK= 1THENPRINT"[CLR/ 
H0ME][4*CRSR 
ABAJO]"TAB(10 + (X- 
l))"[CTRL+2]*" 

100 Tl$ = "000000" 

110 GETK$:IFK$ = ""ANDTI<TM 

THEN110 
120 IFTI>TM 

THENER = ER + 1:G0T0 
170 

130 IFK$<>MID$(A$,X,1) 



THEN110 
140 IFK = 1THENF0RZ = 4T01 
STEP-1:PRINTLEFT$("[CLR/ 
H0ME][8*CRSRABAJ0]", 
Z+6)TAB(10+X-1)" 
[CTRL + 2][CTRL + 6][CRSR 
ABAJO][CRSRIZQDA.] 
":NEXT 

150 1FK = 2THENPRINT"[CLR/ 
H0ME][5*CRSR 
ABAJ0]"TAB(18)"[CTRL + 4] 
[COMM+AHCOMM + S] 
[CRSRABAJ0][3*CRSR 
IZQDA.][SHIFT+l][CTRL + 6] 
[CRSRDCHA.][CTRL+4] 
[SHIFT+l][CRSRABAJO][ 
3*CRSRIZQDA.][C0MM + ZL 
[COMM+X]" 

160 IFTKTMTHEN160 

170 W = 54276:A = 54277:NM = 
NM + 1:POKE53280,6 

180 IFK=1THENPRINT"[CLR/ 
H0ME][4*CRSR 
ABAJO]"TAB(10 + (X-1))" " 

190 P0KEW,33:P0KEA, 
50:POKE54273,150 

200 POKE54273,0:POKEW, 
32 

210 IFK=1ANDN<20THEN 

50 

220 I FK = 2ANDN<TLTHEN 

50 

230 PRINT"[SHIFT+CLR/ 

HOME][CTRL+0]"L1$"[CTRL 
+ 6]"KP"PULSACI0NESP0R 
MIN., HAS FALLADO 

240 PR INTER "VECES DE UN 
TOTALDE"NM 

250 PRINTLI$ 

260 POKE53280,6:POKE53281, 

0:POKE198,0 
270 PRINT"[CLR/H0ME][ 

10*CRSR 

ABAJ0][CTRL+2]"TAB(15)" 

0PCI0NES1CRSR 

ABAJ0][CTRL+6]" 
280 F0RZ=1T02:PRINT 

TAB(13)Z ; ,, :TEST";Z:NEXT2 
290 PRINT 

TAB(9)"[CTRL+2][CRSR 

ABAJOJQUEPRUEBADESEAS 
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300 GETK$:K=VAL(K$):IF 
K<1ORK>2THEN300 

310 INPUT"[SHIFT + CLR/ 

HOMEJN.DEPULSACIONES 
POR MI N.APR ACUCAR"; 
KP: I FKP<1THEN 
310 

320 TM-3000/KP:INPUT 
"[SHIFT+CLR/ 
HOMEJLETRASNORMALESO 
AMPLIADAS(N/A)"; 
NX$ 

330 IFNX$o"N"AND 
NX$o"A"THEN 
320 

340 IFK=2THENTL=20:INPUT 
"[SHIFT+CLR/ 
HOME] ENTRAR NU MERO DE 
CARACTERES"; 
TL 

350 PR! NT'TSH (FT+CLR/ 

HOME]"LI$"[CTRL + 6]" 
360 PR I NT"[CRSR 



ARRI BA] PULSA LATECLA 

CUANDOOIGASEL 

PITIDO" 

370 SP=1:IFNX$ = "N" 

THENSP=.5 
380 PRINTLI$:A$ = "":FOR 

Z=1TO10.5STEPSP:Q1 = 65 

+ RND(1)*26 

390 Q2 = 33 + 1NT(RND(1) 

*25) 

400 IFRND{1)>.50 
THENQ1-Q1+ 
128 

410 IFNX$="N" 

THENA$ = A$ + CHR$(Q1): 

NEXT:GOTO430 

NEXT;GOTO430 
420 A$ = A$ + CHR$(Q2) + CHR$ 

(Ql)-NEXT 
430 PRINTTAB(ll) 

"[CTRL + 2]PULSAUNA 

TECLAPARA 



EMPEZAR":POKE198, 

0:WAIT198,1 
440 PRINTTAB(11)"[CRSR 

ARRIBA][28ESPACIOS]" 
450 GOTO40 



MICROCONSEJO ACERCA 
DE LA RAPIDEZ 



Cuando utilices el programa de ve- 
locidad, es mejor empezar por el te- 
clado normal a baja velocidad, diga- 
mos de 30 a 50 caracteres por minuto. 

El riesgo a evitar consiste en teclear 
los caracteres familiares más rápida- 
mente y luego ir más despacio cuando 
te encuentres con caracteres sobre los 
que no estés tan seguro, particular- 
mente si eliges el teclado expandido. 

Una vez tengas el hábito de teclear 
a un ritmo constante puedes seleccio- 
nar el teclado expandido y, a conti- 
nuación, incrementar gradualmente tu 
velocidad. 
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EVITANDO 
ERRORES 




Incluso cuando uu programa está to- 
talmente depurado, todavía pueden 
aparecer errores. Esto se debe al uso o al 
abuso que se hace del propio programa. 
Éste es el tema del que nos ocuparemos 
a continuación. 

La palabra clave en este caso es uso. 
Independientemente de lo bien hecho 
que esté un programa, desde el punto 
de vista exclusivamente técnico, si de 
alguna manera su uso resulta difícil, 
confuso o engañoso, es seguro que en 
algún momento alguien tendrá proble- 
mas con el mismo. Y si alguien tiene 
problemas al utilizar un ordenador, lo 
más probable es que se produzca al- 
gún tipo de error. 

En realidad el secreto consiste en 
hacer que el programa sea agradable 
de usar, de forma que cada una de las 
fases del mismo sea convenientemente 
anunciada, y el usuario aborde cada 
nueva acción con pleno conocimiento 
de lo que está haciendo. 

Esto quiere decir que hay que dis- 
poner una gran cantidad de represen- 
taciones y mensajes de pantalla, y que 
hay que proteger tanto al usuario 
como al programa de la posibilidad de 
cometer errores. 

Siempre que sea posible, merece la 
pena incluir en el programa una pro- 
tección contra todo tipo de entrada ac- 
cidental. Las pulsaciones erróneas de 
tecla, el pulsar dos teclas a la vez, las 
entradas ilegales, los valores imposi- 
bles, todo ello significa la muerte de 
ciertos programas a menos que se 
adopten precauciones especiales. Para 
hacer todo esto, tienes que incorporar 
en tus programas varios tipos de ruti- 
nas de comprobación de errores y va- 
lidación de entradas. De hecho, mu- 
chos de los programas que hemos visto 
ya en INPUT utilizan rutinas de esta 
clase. 

El uso de unos mensajes de pantalla 
que sean precisos resulta fundamental 
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para ayudar al usuario a entender per- 
fectamente cómo puede responder 
cuando se le está invitando a que se- 
leccione una opción, por ejemplo en 
un menú. 

Imagínate por ejemplo que tenemos 
un menú con las siguientes opciones, 
típicas de la parte inicial de un pro- 
grama sencillo de base de datos: 

1 Crear un nuevo registro 

2 Modificar un registro ya existente 

3 Cargar un fichero 



4 Almacenar un fichero 
... etcétera. 

Si a continuación se pone un men- 
saje que diga algo así como "SELEC- 
CIONE UNA OPCION" o "HAGA 
SU ELECCION", el usuario se queda 
en realidad un poco en tinieblas res- 
pecto a la forma en que tiene que ha- 
cer lo que venga a continuación. ¿De- 
berá pulsar el número de opción, o de- 
berá teclear más bien una o varias le- 
tras del correspondiente mensaje? 
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USO DE MENSAJES ADECUADOS 



A LA CAZA DE ERRORES 



EXCLUSION DE LOS VALORES 



NO VALIDOS 



INDICACION DE ERRORES 




Evidentemente, un mensaje mucho 
más satisfactorio en este sentido sería 
"SELECCIONE OPCION (1-4)" o 
bien "PARA INDICAR SU ELEC- 
CION PULSE UNA TECLA DEL 1 
AL 4". 

De la misma forma, en los mensajes 
que requieran una respuesta sencilla 
que sea un sí o un no, indícalo en el 
propio mensaje. Por eso, en lugar de 
utilizar un mensaje que, por ejemplo, 
diga "¿QUIERES JUGAR OTRA 
\T£Z?" y en el que el sí podría estar 



indicado por la pulsación de una tecla 
cualquiera no específica, o por la pul- 
sación del botón de fuego del joystick, 
o por la tecla Y, es mucho mejor que 
especifiques las opciones. Así, podrías 
poner "PARA JUGAR OTRA VEZ, 
APRIETA EL DISPARADOR" o 
bien "¿QUIERES JUGAR OTRA 
VEZ (S/N)?". Cualquiera de las dos 
posibilidades es mucho más directa y 
da una idea mucho más clara de la ma- 
nera de continuar. 

Incluso el mensaje "PULSAR 
CUALQUIER TECLA PARA CON- 
TINUAR" resulta mejor a este res- 
pecto. Pero este mensaje tan conocido 
y tan popular también puede ser me- 
jorado especificando una tecla deter- 
minada; con ello se evita que al usua- 
rio se le ocurra pulsar precisamente 
STOP, BREAK. . . y pueda salirse del 
programa. Seguro que no hay confu- 
siones si utilizas un mensaje del tipo: 
"PARA CONTINUAR, PULSA C". 

En algunos ordenadores es posible 
destacar las pulsaciones requeridas 
utilizando el vídeo inverso, lo cual 
constituye una alternativa bastante 
atractiva. 

Con independencia de los tipos de 
mensajes utilizados y de las pulsacio- 
nes de tecla disponibles, constituye 
una buena práctica de programación 
el inutilizar todas las teclas que pue- 
dan originar la parada del programa, 
y el utilizar rutinas que impidan todas 
las entradas imposibles, como se ex- 
plica más adelante. Resumiendo, en 
las opciones a las que hay que respon- 
der con un simple sí o no, podrías uti- 
lizar algo como lo siguiente: 

90 GET A$ 

95 IF A$<> "S" AND A$o"N" 
THEN 90 

Otra forma de aligerar el trabajo del 
usuario consiste en restringir la canti- 
dad real de información que hay que 



introducir en un punto determinado. 
Si con la pulsación de una sola tecla se 
puede hacer una determinada tarea, 
úsala. Y para evitar confusiones, con- 
viene que a lo largo de todo un pro- 
grama controlado a base de menús uti- 
lices de forma sistemática el mismo 
tipo de mensajes y respuestas. De esta 
forma, si la selección del menú de 
apertura se hace tecleando un solo nú- 
mero, procura utilizar este mismo sis- 
tema para los otros menús que vengan 
detrás. 

Insistiendo aún más en este punto, 
utiliza las mismas convenciones para 
cada menú y para cada lista de opcio- 
nes. Si por ejemplo en uno de los me- 
nús la tercera opción es GUARDAR 
mientras que en otro menú la tercera 
opción es SALIR, lo más probable es 
que más de uno se sienta incómodo 
con tu programa en el futuro... 

En los casos en que se requieran en- 
tradas de datos se puede aplicar la 
misma regla, especialmente cuando 
intervienen secuencias más bien lar- 
gas. Los mensajes de entrada múltiple 
quedan bien cuando los datos están 
restringidos a un conjunto de campos 
muy sencillos, como ocurre por ejem- 
plo en el caso de un fichero de nom- 
bres y direcciones, en el que invaria- 
blemente cada nombre va seguido por 
cuatro líneas de dirección y un número 
de teléfono. 

Pero el caso de un fichero con re- 
gistros de clientes es ya algo más com- 
plejo y requiere bastante más cuidado. 
En este caso es bastante probable que 
el número de entradas difiera de un 
registro a otro y que algunos campos 
tengan que dejarse en blanco. 

Puedes reducir los errores clasifi- 
cando las entradas requeridas en gru- 
pos lógicos. Así puedes seguir conser- 
vando un único mensaje para el nom- 
bre y la dirección, dedicando a conti- 
nuación mensajes especíales para de- 
talles específicos. 
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Organiza las cosas de modo que los 
mensajes aparezcan ellos solos en la 
pantalla, o en un color diferente, o por 
lo menos bien separados del mensaje 
anterior. El borrado de toda la pan- 
talla después de cada grupo de men- 
sajes es algo que el ojo aprecia y agra- 
dece mucho más que un simple scro- 
lling hacia arriba. 

Llegados a este punto tenemos que 
hacer otra observación: en algunos 
programas, una entrada inesperada 
puede llamar a su propia subrutina. 
Por ejemplo, en un fichero de datos, 
se pueden requerir elementos de in- 
formación adicionales para determi- 
nadas entradas. Si ahora resulta que el 
usuario, debido a la razonable familia- 
ridad que ya ha ido adquiriendo con la 
secuencia de mensajes de pantalla, no 
presta la debida atención a la nueva 
«ramificación» de los mensajes y se 
cree que nada ha cambiado, puede en- 
contrarse con toda cíase de errores. 

En .casos como éste son esenciales 
las rutinas para la caza de errores, 
pero conviene de todas formas pre- 
venir de alguna forma al usuario de 
que las condiciones de entrada han 
cambiado. Una simple intermitencia 
en la pantalla, o la presentación del 
mensaje en vídeo inverso son normal- 
mente más que suficientes. También 
podrías incorporar algún tipo de 
alarma audible, tal como un beep. 

LA CAZA DE ERRORES 

La forma más sencilla de evitar que 
los errores sean absorbidos por un 
programa es brindar al usuario ¡a op- 
ción final de que acepte o rechace lo 
que ya ha sido introducido. Puedes ha- 
cer esto utilizando una rutina que en- 
víe un mensaje más o menos como 
éste: "¿ESTAS SEGURO? (S/N)". Al 
pulsar N simplemente vuelve a em- 
pezar la rutina de introducción de da- 
tos, mientras que con S pasa a actuar 
sobre la información ya introducida. 
Pero esto sólo es realmente necesario 
en las rutinas de entradas muy largas. 

Si decides incorporar dentro de un 
programa una rutina de aceptación de 
entradas, intenta combinar todas las 
respuestas en un solo grupo. Así re- 
sulta de lectura mucho más fácil y es 




mucho mejor que andar repitiendo 
toda la secuencia de preguntas y res- 
puestas individualmente. 

Aunque las rutinas de aceptación de 
entradas proporcionan un método 
sencillo de evitar errores, los progra- 
mas tienen que estar protegidos contra 
las entradas incorrectas. 

Por ejemplo: ¿pueden introducirse 
letras y números en algún punto de un 
programa en el que sólo se permiten 
letras, o sólo números? Tienes que 
procurar anticiparte siempre a proble- 
mas de este tipo cuando construyas las 
rutinas de entrada de tus propios pro- 
gramas. 

LÍMITES DE LONGITUD 

En la mayoría de los programas de 
ficheros de datos, las longitudes de las 
entradas tienen que adaptarse a las 



exigencias del programa. Por ejemplo 
un programa de etiquetas tiene sus en- 
tradas restringidas por el tamaño físico 
de la etiqueta. Al fin y al cabo, no 
tiene sentido introducir una línea con 
una dirección que tenga, por ejemplo, 
25 o 30 caracteres, si una línea así de 
larga no va a caber dentro de la eti- 
queta. 

Puedes servirte en estos casos de un 
indicador que sugiera el límite real de 
las entradas, como por ejemplo utili- 
zando el vídeo inverso o cualquier 
otro artificio visual que sugiera los lí- 
mites efectivos de cada campo. 

Incluso en estos casos se necesita 
una programación adicional que in- 
valide las entradas demasiado largas. 
En algunos casos tal vez sea preferible 
cortar por las buenas las líneas que 
sean demasiado largas; este tipo de 
truncamiento por el sitio adecuado 
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está basado en la propia rutina de 
aceptación de entradas. Pero normal- 
mente es mejor iniciar de nuevo la se- 
cuencia de entrada en el punto en que 
se produjo el error, enviando un men- 
saje de error que diga algo así como 
"ENTRADA DEMASIADO LAR- 
GA" seguido de un mensaje que diga: 
"ESCRIBALO OTRA VEZ", o cual- 
quier otra cosa que se te ocurra. 

Otra de las razones principales para 
fijar límites a las longitudes de las en- 
tradas, dentro de un programa como 
un fichero de datos, es la conservación 
de la memoria. Después de todo, de 
nada sirve disponer 28 caracteres para 
una entrada de un apartado de co- 
rreos, cuando la máxima longitud re- 
querida por la misma nunca supera los 
8 caracteres. Ajusta las longitudes de 
tus campos todo lo posible para aho- 
rrar memoria y obtener el mayor ren- 
dimiento de tus ficheros de datos. 

VALORES NO VÁLIDOS 

El poner límites es también impor- 
tante por otras razones, particular- 
mente en los programas que hacen uso 
de una entrada numérica para cálculos 
posteriores. Por ejemplo, supongamos 
que el ordenador te pide tres números 
(o busca esos tres números en la me- 
moria) y divide la suma de los dos pri- 
meros por el tercero. Una leve impre- 



cisión de uno de tus dedos puede ha- 
cer que el tercer número introducido 
sea un en lugar de un 9. O también 
puede ocurrir que como resultado de 
un cálculo interno realizado por tu or- 
denador, el valor sea asignado a la 
tercera variable. 

A menos que tu programa esté ade- 
cuadamente protegido, el resultado 
será un mensaje de error de división 
por cero con una detención brusca del 
programa. 

En un caso como éste, la protección 
que se necesita es mínima, en el su- 
puesto de que sólo se trate de entradas 
desde el teclado; basta con poner una 
sencilla rutina de comprobación de te- 
clas para restringir el margen de va- 
lores aceptables. 

Pero, para los cálculos «internos» en 
los que podría resultar un valor cero 
como dato para otros cálculos poste- 
riores, hay que utilizar métodos es- 
pecíficos de captura de errores. Se 
trata de un caso típico en que hay que 
anticiparse poniéndose en el caso 
peor, incorporando en el programa 
una rutina de comprobación de erro- 
res que utilice operadores relacióna- 
les. Podrías añadir algo más o menos 
como esto: 

IF A=0 THEN GOTO 10000 
La línea 1Ü000 sería en este caso el 



principio de una rutina que podría mo- 
dificar el valor de 0, asignándole otro 
valor que, aunque muy próximo a 
cero, sea aceptable por el programa; 
también podría ser que avisara al 
usuario de que está a punto de pro- 
ducirse un cálculo no válido. En el úl- 
timo ejemplo el programa podría ser 
reconducido a una rutina de entrada 
adecuada que permita introducir un 
valor alternativo. 

Para comprobar que un dato se en- 
cuentra dentro de un determinado 
margen de valores, puedes utilizar 
algo tan simple como lo siguiente: 

IF N>100 OR N<1 THEN... 

En el caso de que el valor introdu- 
cido esté fuera de márgenes, la línea 
anterior enviaría al programa al prin- 
cipio de la rutina de entrada. En el 
caso de que exista el riesgo de que se 
produzca una entrada no válida bajo 
control directo del usuario del pro- 
grama, te conviene utilizar mensajes 
de pantalla adecuados que informen 
del margen de valores disponibles y 
además, en caso de que se produzcan 
errores, informe al usuario de dónde 
está el problema. Todos estos mensa- 
jes pueden estar contenidos en una 
subrutina a la que se accede cada vez 
que sea necesario, como veremos más 
adelante. 
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BORRADO DEL BUFFER 

Hay algunos ordenadores, y el 
Commodore es uno de ellos, que tie- 
nen que utilizar una zona de almace- 
namiento temporal para las entradas y 
el teclado. Esto se hace por medio del 
llamado buffer de entrada o buffer de 
teclado. Puede ser que se produzcan 
errores si accidentalmente se introdu- 
cen caracteres equivocados o todavía 
están almacenadas en el buffer las an- 
teriores pulsaciones de tecla. 

Por ejemplo en un programa que 
acepte una secuencia de caracteres in- 
dividuales, al pulsar una tecla por se- 
gunda vez, se envía al buffer de te- 
clado un segundo carácter, probable- 
mente indeseado, quedando listo para 
su procesamiento. El primer mensaje 
de pantalla acepta el primer carácter, 
mientras que el segundo difícilmente 
va a tener tiempo de presentar de 
nuevo el carácter antes de que efecti- 
vamente quede asignado como valor 
de la segunda pulsación de tecla, con 
lo cual el programa proseguirá su mar- 
cha. 

Para evitar este tipo de situaciones, 
es aconsejable incluir la siguiente sen- 
tencia como precaución adicional jus- 
tamente antes de una secuencia de en- 
trada: 

POKE 198,0 

Con esto, el buffer de teclado queda 
completamente borrado antes de que 
llegue la secuencia de entrada que se 
espera inmediatamente a continua- 
ción. 



INDICACIÓN DE ERRORES 

Si al usuario se le proporcionan ins- 
trucciones claras de lo que tiene que 
hacer cuando se enfrenta con la intro- 
ducción de una secuencia de datos, ya 
se están eliminando de entrada una 
gran cantidad de errores posibles. No 
obstante siempre seguirán producién- 
dose errores, en cuyo caso una indi- 
cación clara del problema ayudará 
enormemente a que éste no vuelva a 
producirse. 

Lo que se necesita en este caso no 
son los mensajes de error que te envía 



habitualmente tu ordenador, sino un 
conjunto de mensajes de error redac- 
tados a medida. Todos estos mensajes 
de error pueden ir en un programa 
que utilice una rutina especial a la que 
se llame cada vez que se produzca un 
problema. 

Entre las aplicaciones típicas de esta 
rutina estarían los resultados numéri- 
cos de un cálculo o de una entrada ex- 
terior que se salgan de los límites per- 
mitidos, la duplicación de nombres en 
un campo clave, la longitud incorrecta 
de una entrada, o una entrada de tipo 
distinto del esperado, etc. De hecho, 
puedes imaginarte todos los tipos de 
problemas que pueden presentarse en 
un programa y preparar un mensaje 
de error para cada uno de ellos. 

Utilizando una matriz y una orga- 
nización adecuada de tus variables, 
puedes definir el número de mensajes 
de error requerido para permitir al 
programa asignar el valor de la varia- 
ble en función de los errores que se 
produzcan. 

La matriz correspondiente a estos 
mensajes de error se dimensionaría al 
principio del programa como parte del 
procedimiento de inicialización. Na- 
turalmente, habría que efectuar de vez 
en cuando modificaciones periódicas 
al objeto de incluir los nuevos posibles 
errores que se vayan descubriendo a 
medida que se va desarrollando el pro- 
grama. Así, por ejemplo, si estás pen- 
sando en utilizar un conjunto de nueve 
programas de mensajes de error, cerca 
del comienzo de tu programa puedes 
utilizar una sentencia DIM como se 
hace en este programa: 

10 DIM EM$(9): FOR 1=1 TO 

9:READ EM$(Z):NEXT Z 
20 DATA "¡ENTRADA 

DEMASIADO LARGA!", 

"¡PULSACION 

INCORRECTA!" 
22 DATA "¡CONTRASEÑA 

INCORRECTA!", "¡SIN 

DATOS!" 
24 DATA "¡REINTRODUZCA LOS 

DATOS!", "¡NO TOCAR!" 
26 DATA "PULSE (S)l (N)0" ( 

"¡SOLO NUMEROS!", "¡SOLO 

LETRAS!" 



Es evidente que puedes definir tus 
propios mensajes de error de manera 
que se adapten lo mejor posible a las 
condiciones de tu programa. Después, 
a lo largo del programa, tendrás que 
ir intercalando las comprobaciones de 
los valores introducidos: 

1000 EM = 0: INPUT A$ 
1010 IF LEN (A$)>25 THEN 
EM = 1 

En el ejemplo anterior, la línea 1010 
es opcional y puede ser remplazada 
por muchas alternativas, dependientes 
del programa de que se trate. Aquí 
tienes algunas de ellas: 

1010 IF A$<> "CREDITO" 

THEN EM = 3 
1010 IF A$="5" OR A$ = "9" 

THEN EM = 4 
1010 IF A$=" ,T THEN EM = 5 
1010 IF A$ = " " THEN EM = 6 
1010 IF A$<> "S" AND 

A$o"N" THEN EM = 7 
1010 IF A$<"0" OR A$>"9"~ 

THEN EM = 8 
1010 IF A$<"A" OR A$>"Z" 

THEN EM = 9 
1010 FOR Z=l TO LEN (A$): IF 

MID$(A$,Z,1) = "0" THEN 

EM = 2 
1015 NEXTZ 

Como puedes ver, todas las varian- 
tes propuestas llevan el mismo nú- 
mero de línea de programa, ya que en 
una rutina particular sólo debe figurar 
una de ellas. 

Se exceptúa el caso del último ejem- 
plo presentado, que por tratarse de un 
bucle requiere una sentencia NEXT 
en una línea posterior, línea 1015 en 
este caso. 

Cuando al comprobar una pulsación 
de tecla se revela la presencia de un 
error, la variable EM adopta un valor 
particular que depende del mensaje de 
error específico, tal como se haya de- 
finido anteriormente como parte de la 
matriz EM. 

La primera opción propuesta sirve 
para examinar si el dato introducido 
contiene más de 25 caracteres, la se- 
gunda permite comprobar la ortogra- 
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fía de la palabra clave. La tercera op- 
ción, que encontraría una aplicación 
típica en un menú de selección, señala 
que no hay datos disponibles si se eli- 
gen ías opciones 5 y 9. La cuarta res- 
ponde al usuario con cierto descaro en 
el caso de que éste pulse la barra es- 
padadora. La quinta opción es una va- 
riante de la comprobación de tecla que 
se suele poner habitualmente después 
de un mensaje de los del tipo Sí/No. 
Las dos opciones siguientes sirven 
para comprobar que sólo se introdu- 
cen letras, o sólo números y la última 
es para cerciorarse de que no se ha co- 
lado en el programa una O en lugar de 
unO. 

El programa regresaría después al 
punto en el que se produjo la entrada 
de datos incorrecta. 

A continuación el programa avan- 



zaría, mediante una subrutina, hasta 
una rutina de presentación de mensa- 
jes que tendría la siguiente forma: 

2000 IF EM>0 TH EN PRINT 
EM$(EM) 

A PRUEBA DE BOMBAS 

Ya hemos visto antes la forma en 
que puede realizarse la comprobación 
de las pulsaciones de tecla para validar 
las entradas de un menú. Aunque el 
procedimiento descrito sirve para pro- 
teger el programa de las entradas in- 
correctas, hacen falta otros refina- 
mientos para tener el programa bien 
protegido durante la ejecución. 

Por ejemplo, imagínate un pro- 
grama escrito para ser utilizado por ni- 
ños pequeños. Lo ideal sería que sólo 



hiciera falta pulsar una tecla, o en 
todo caso dos o tres, para poder ir 
avanzando en el programa. Todas las 
demás teclas de letras y números pue- 
den ser invalidadas de una forma bas- 
tante fácil. Pero ¿qué sucede con las 
teclas de control tales como RUN/ 
STOP, RESTORE, BREAK o ES- 
CAPE? Hay varios POKEs disponi- 
bles que puedes utilizar para inhibir 
algunas de las teclas más sensibles de 
los Commodores. Para el 64, puedes 
inhibir la tecla RUN I STOP con POKE 
808,239. Para inhibir RUN/ STOP y 
RESTORE, utiliza POKE 808,251. 
Para volver a habilitar cualquiera de 
las dos, teclea POKE 808,237. 

En el caso del Vic 20, puedes inhibir 
RUN/STOP y RESTORE con POKE 
808,128. La activación se hace con 
POKE 808,112. 
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ABISMO: PROGRAMA 
UN JUEGO COMPLETO 



¿Puedes aprender el lenguaje ensam- 
blador antes de que las cabras se coman 
tu merienda? Empieza ya a programar 
un magnífico juego en código máquina 
que iremos completando en sucesivos 
números de INPUT. Así combinaremos 
el aprendizaje de código máquina con la 
confección de un juego casi comercial. 

Existen muchas aplicaciones comer- 
ciales serias para la programación en 
lenguaje máquina. Pero la programa- 
xión de juegos te permite poner de 
manifiesto todos los principios impor- 
tantes; además, el aprendizaje de la 
programación en el árido código má- 
quina es mucho más divertido cuando 
se aplica para configurar un juego. 
, Por eso vamos a ver en INPÜT un 
juego completo en código máquina, 
" construido especialmente para apro- 
vechar al máximo todas las, posibili- 
dades de programación del Commo- 
dor c 64 . E 1 j uego te mos.t rara cómo se 
va construyendo .'un juego típico y 
como se combinan los diferentes ele- 
mentos de programación para produ- 
cir gráficos interesantes, una acción 
suave y efectos emocionantes. 



saltar, en el que aparecen cuatro pan- 
tallas que van siendo progresivamente 
más difíciles. El personaje principal, 
que ha ido a merendar a un acantilado 
que hay junto al mar, ha decidido ir a 
dar un paseo para que se le abra el 
apetito, pero cuando regresa se en- 
cuentra con que unas cabras han es- 
parcido toda su merienda por las ro~ 
cas;. Te ves obligado a escalar hasta lo 
alto del acantilado para recuperar tus 
posesiones perdidas. La cosa es toda- . ¿z? 
vía más urgente por el hecho de que 
íá marea está subiendo y estás en pe- 
ligro de ahogarte si no consigues al- 
canzar a tiempo la parte, más alta del 
acantilado. s - 

En la primera pantalla te ves estor- 
bado por las rocas que caen: Las mcd&ñ ■ 
van cayendo por la pendiente y te ve4 V| : : : 
obligado a ir saltando sobre ellas. EkTVJ^ 
menor resbalón puede significar tu 
muerte súbita. Puedes controlar tus 
saltos y tu carrera actuando sobre las 
teclas N y M. Si resultas alcanzado por 
una piedra-, te verás inmediatamente 
sepultado.' ¡Menos mal que tienes 
cinco vidas! 

Cuando llegas hasta 3o alto del acaíf^.-"' 



tilado y reclamas el primer artículo de 
tu perdida merienda, nuevamente des- 
ciendes hasta abajo y te encuentras en 
la segunda pantalla. Cuando intentas 
escalar esta vez el acantilado, te en- 
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■ E]7 prógrama que;, veremos xen 
IÑPUT se llama Abismo. Se trata de 
un juego en el que hay que cóprer y 



cuentras con que tienes que saltar por 
encima de unas grietas que te vas en- 
contrando. Si caes en cualquiera de 
ellas, te verás nuevamente sepultado. 

Cuando consigues llegar a lo alto de 
la segunda pantalla, pasas a la tercera. 
También ahora tienes que escalar la 
pendiente, evitando las grietas. Pero 
esta vez las grietas están habitadas por 
serpientes venenosas que harán todo 
lo posible por morderte cuando pases 
por encima. En la cuarta pantalla, ten- 
drás que enfrentarte con grietas, ser- 
pientes y cantos rodados. 

En todas las pantallas tienes, ade- 
más, el problema de la marea, que 
sube sin cesar. Vas ganando puntos a 
medida que vas ascendiendo por la 
pendiente, además de una bonifica- 
ción si consigues reunir, sin perder ni 
una vida, cuatro objetos que formen 
parte de tu merienda. 

Aparte de su carácter formativo 
para el aprendizaje de la programa- 
ción, Abismo resulta de lo más diver- 
tido de jugar. Lo iremos publicando 
por etapas en números sucesivos de 
INPUT. Explicaremos con todo deta- 
lle cómo funciona cada parte y cómo 
se adapta en la estructura global del 



juego. También veremos ejemplos de 
cómo se pueden utilizar algunas de las 
rutinas para diversas aplicaciones. 

Al final dispondrás de un juego si- 
milar a muchos de los que existen en 
el mercado. 



ESTRUCTURA DEL JUEGO 

El fondo del escenario y los perso- 
najes móviles se construyen por medio 
de GDUs. Para generar el fondo se 
utilizan los correspondientes bucles 
que se encargan de irlo presentando 
en pantalla. 

En la primera pantalla se superpo- 
nen las grietas y las serpientes. De esta 
manera, no hace falta redefinir otra 
vez la mayor parte del fondo en las 
pantallas segunda y tercera. 

La parte principal del programa in- 
cluye una rutina de ejecución que con- 
trola el tiempo y la prioridad de los su- 
cesos que ocurren. Dichos sucesos se 
incorporan en forma de subrutinas. La 
ejecución se realiza por medio de in- 
terrupciones. 

El movimiento de las piedras y el 
del personaje principal se hacen en 
saltos de medio en medio carácter. 




Para ello se utilizan dos conjuntos de 
caracteres, con lo cual se consigue una 
acción aceptablemente suave sin hacer 
que el programa sea demasiado com- 
plicado ni demasiado lento. En todos 
los juegos de esta clase, la velocidad 
es importante. 

Lo primero que tienes que hacer en 
cualquier juego es presentar en la pan- 
talla una página con el título. Aunque 
la rutina de presentación está escrita 
en código máquina, no tiene mucho 
sentido el poner en código máquina 
las palabras que han de aparecer en 
pantalla. En vez de hacer esto, las pa- 
labras que quieras que aparezcan en 
pantalla se teclean en ASCII como 
parte del siguiente programa en BA- 
SIC que las pokea en memoria. 

Tienes varias formas diferentes de 
hacer esto. Aquí veremos dos de ellas, 
por lo que la presentación de la página 
con el título del juego se divide en dos 
secciones, cada una de las cuales 
puede ser ejecutada y probada sepa- 
radamente. 

Antes de introducir ningún pro- 
grama tienes que desplazar hacia 
abajo el RAMTOP a fin de definir una 
zona protegida, lo cual consigues po- 
keando 51 con el valor 255, 52 con 63, 
55 con 255 y 56 con 63. A continuación 
tienes que introducir el programa en 
BASIC y ejecutarlo. Así se construirá 
la tabla de datos en la zona protegida 
de la memoria. Después teclea un 
NEW para deshacerte del programa 
pokeador en BASIC, carga tu monitor 
en código máquina y utilízalo para 
guardar la tabla en cinta. 

Teclea nuevamente NEW para li- 
brarte del monitor en código máquina 
y carga tu ensamblador con un 
LOAD. Teclea la rutina en lenguaje 
ensamblador y utiliza la opción SAVE 
para guardar en cinta el código fuente. 
Seguidamente ensambla la rutina, haz 
un nuevo NEW para librarte del en- 
samblador y carga de nuevo el moni- 
tor de código máquina. Guárdalo en 
cinta. 

Puedes ejecutar las rutinas en có- 
digo máquina, llamándolas con SYS 
16384. Pero tienes que tener al mismo 
tiempo en memoria la tabla de datos. 

El siguiente programa en BASIC 
contiene todos los datos de la página 
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de presentación, excepto la palabra 
CLIFF (abismo). Esta palabra se 
añade más adelante utilizando un mé- 
todo diferente de entrada de datos. 

50 P0KE53281M 
10 ADD=16640:FORI = 0TO 
32000 

20 READA%:POKEADD + l,A% 
25 PRINTCHR$(A%) ; 
30 IFA% = 0GOTO50 
40 NEXT 
50 END 

16640 DATA 147,149,142, 

169,169,169,169,169, 

169,169 
16650 DATA 169,169,169, 

169,169,169,169,169, 

169,169 
16660 DATA 169,169,169, 

142,13,149,169,169, 

169,169 
16670 DATA 169,169,169, 

169,169,169,169,169, 

169,169 
16680 DATA 169,169,169, 

169,169,142,144,125, 

32,32 

16690 DATA 32,32,32,32,32, 

82,69,86,73,83 
16700 DATA 84,65,32,13,149, 

169,169,169,169,169 
16710 D, TA 169,169,169, 

169,169,169,169,169, 

169,169 
16720 DATA 169,169,169, 

144,32,125,32,32,32, 

32 

16730 DATA 32,32,32,32,73, 

78,80,85,84,46 
16740 DATA 32,32,32,149,13, 

149,169,169,169,169 
16750 DATA 169,169,169, 

169,169,169,169,169, 

169,169 
16760 DATA 169,169,169, 

142,144,32,32,125,32, 

32 

16770 DATA 32,32,32,32,32, 

32,32,32,32,32 
16780 DATA 32,32,32,32,32, 

32.13,149,169,169 
16790 DATA 169,169,169, 



169,169,169,169,169, 
169,169 

16800 DATA 169,169,169, 16900 
169,144,32,32,32,125, 
32 

16810 DATA 32,32,32,82,69, 16910 

86,73,83,65,68 
16820 DATA 79,32,80,79,82, 

13,149,169,169,169 16920 
16830 DATA 169,169,169, 

169,169,169,169,169, 

169,169 16930 
16840 DATA 169,169,142, 

144,32,32,32,32,125, 

32 16940 
16850 DATA 32,32,32,74,79, 

83,69,80,32,77 
16860 DATA 46,32,71,73,76, 16950 

83,32,32,13,149 . 
16870 DATA 169,169,169, 

169,169,169,169,169, 16960 

169,169 
16880 DATA 169,169,169, 

169,144,32,32,32,32, 16970 

32 

16890 DATA 125,149,13,169, 



169,169,169,169,169, 
169 

DATA 169,169,169, 

169,169,169,13,169, 

169,169 

DATA 169,169,169, 

169,169,169,169,169, 

169,13 

DATA 169,169,169, 

169,169,169,169,169, 

169,169 

DATA 169,13,169,169, 
169,169,169,169,169, 
169 

DATA 169,169,13,169, 
169,169,169,169,169, 
169 

DATA 169,169,13,169, 
169,169,169,169,169, 
169 

DATA 169,13,169,169, 
169,169,169,169,169, 
13 

DATA 169,169,169, 

169,169,169,13,169, 

169,169 
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16980 DATA 169,169,13,169, 
169,169,169,13,169, 
169 

16990 DATA 169,13,169,169, 

13,169,13,32,32,32 
17000 DATA 32,32,32,32,32, 

142,31,178,32,178 
17010 DATA 32,117,99,105, 

32,117,105,178,32,117 
17020 DATA 99,105,32,117, 

99,105,32,176,99,105 
17030 DATA 13,32,32,32,32, 

32,32,32,32,125 
17040 DATA 32,125,32,125, 

32,125,32,125,125,125 
17050 DATA 32,125,32,125, 

32,125,32,32,32,125 
17060 DATA 32,125,13,32,32, 

32,32,32,32,32 
17070 DATA 32,171,99,179, 

32,171,99,179,32,125 
17080 DATA 125,125,32,125, 

32,32,32,171,179,32 
17090 DATA 32,171,178,107, 

13,32,32,32,32,32 
17100 DATA 32,32,32,125,32, 

125,32,125,32,125 
17110 DATA 32,125,125,125, 

32,125,32,178,32,125 
17120 DATA 32,32,32,125, 

125,13,32,32,32,32 
17130 DATA 32,32,32,32,177, 

32,177,32,177,32 
17140 DATA 177,32,177,106, 

107,32,106,99,107,32 
17150 DATA 106,99,107,32, 

177,202,203,0 

La tabla de datos creada al ejecutar 
el programa anterior es leída con la si- " 
guíente rutina en código máquina, que 
controla la presentación en pantalla: 



ORG 16384 
NOP 
NOP 
NOP 

LDA #$09 
STA $D020 
LDA #$03 
STA $D021 
LDA #$00 
STA $FB 



BEQ $402A 
JSR $FFD2 
NOP 

INC $FB 
BNE $R026 
INC $FC 
CLC 

BCC $4018 

NOP 

NOP 



LDA #$41 
STA $FC 
LDY #$00 
NOP 

LDA ($FB),Y 
NOP 
NOP 
NOP 
NOP 



NOP 
NOP 
NOP 
NOP 
NOP 
NOP 

JSR $FFE4 
BEQ $4035 
RTS 



EL BASIC 



El programa BASIC utiliza un sen- 
cillo bucle FOR ... NEXT para leer 
ios DATA mediante sentencias 
READ y pokearlos en memoria en 
una tabla a la cual pueda acceder el 
programa en código máquina. 

La tabla de datos empieza en la di- 
rección 16640, pero es evidente que 
no contiene 32000 datos, que es el va- 
lor de I que controla el bucle 
FOR ... NEXT. La línea 30 detiene el 
programa cuando hay un cero en los 
datos. El resto de los datos son los có- 
digos ASCII de los caracteres, los sím- 
bolos gráficos de Commodore y los có- 
digos de control. Puedes encontrar to- 




dos estos códigos en el Apéndice F de 
la Guía de Usuario del Commodore 64 
o en el Apéndice C de la Guía de Re- 
ferencia para Programadores. 

PRESENTACIONES EN PANTALLA 

Como sabes, NOP significa No 
Operación, lo cual quiere decir que 
esta instrucción no hace nada. Sin em- 
bargo, no es absolutamente inútil. Se 
suele emplear para disminuir la velo- 
cidad del microprocesador. Cuando se 
pone dentro de un bucle se queda sin 
hacer nada una y otra vez. Pero aquí 
la utilizamos como herramienta de 
programación. 

Las instrucciones NOP se utilizan 
aquí para cortar los programas de 
forma que puedas ver claramente lo 
que está sucediendo. Con esto tam- 
bién se le ofrece al programador la po- 
sibilidad de añadir una instrucción adi- 
cional, en el supuesto de que la ne- 
cesite, dejándole bytes disponibles 
para almacenamientos temporales 
cuando haga falta. 

La primera instrucción activa carga 
el acumulador con el valor nueve y a 
continuación lo almacena en la direc- 
ción de memoria D020. Esta dirección 
se encuentra en la zona de entradas/ 
salidas y controla el color del borde de 
pantalla. Responde a los mismos nú- 
meros de colores que se utilizan en el 
BASIC. Con el valor 9 se obtiene un 
borde de color marrón. Seguidamente 
se almacena el valor 3 en la dirección 
D021, con lo que resulta una pantalla 
de color cyan. 

A continuación se carga la dirección 
de comienzo de la tabla de datos, que 
es 16640, en las direcciones FB y FC 
de la página cero; recuerda que 16640 
en decimal es 4100 en hexadecimal. 
Después se pone a cero el registro Y. 

La instrucción LDA ($FB),Y carga 
en el acumulador el primer byte de la 
tabla de datos. Observa que el despla- 
zamiento Y sigue siendo cero durante 
toda la rutina de presentación en pan- 
talla mientras que se va actualizando 
el puntero de la tabla de datos, con- 
tenido en FB y FC. Pero aquí necesi- 
tamos un direccionamiento indirecto, 
cosa que en el 6520 sólo está disponi- 
ble en forma indexada. 
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La instrucción BEQ $402A saca al 
microprocesador de la rutina cuando 
se llega al cero que hay al final de la 
tabla de datos. A continuación JSR 
$FFD2 fuerza el salto a la subrutina 
del Kernal ROM, encargada de pre- 
sentar un carácter en pantalla. Fíjate 
en que no tienes que decirle dónde 
tiene que imprimirlo. Con este mé- 
todo, el cursor se desplaza a la posi- 
ción correcta de impresión, partiendo 
de los códigos de control contenidos 
en los datos. 

INC $FB incrementa ahora el byte 
bajo del puntero. Si el resultado no es 
cero, la instrucción BNE fuerza un 
salto por encima de la instrucción si- 
guiente, la cual incrementa el byte alto 
cuando se llega al final de una página. 

El bucle se cierra con las instruccio- 
nes CLC y BCC $4018. Después de 
una instrucción CLC, el carry siempre 
estará a cero, por lo que siempre se 
cumplirá la condición para que se eje- 
cute la instrucción BCC y se producirá 
un salto hacia atrás hasta LDA ($FB), 
Y cargándose el siguiente byte de la 
tabla de datos. 

EL BUCLE DE DEPURACION 

En cuanto se ha presentado en la 
pantalla el último carácter de la tabla 
de datos, y se carga el delimitador de 
cero, el microprocesador salta hacia 
afuera de la rutina. Pero no te va a in- 
teresar volver inmediatamente al BA- 
SIC, ya que en tai caso los mensajes 
no estarían en pantalla el tiempo su- 
ficiente para que puedas comprobar si 



el programa funciona adecuadamente 
o no. Por eso hemos incorporado un 
bucle de depuración. 

La instrucción JSR $FFE4 fuerza un 
salto a la subrutina del Kernal ROM 
encargada de detectar las pulsaciones 
de tecla. Si ha habido alguna pulsa- 
ción, regresa al acumulador con el va- 
lor de la tecla pulsada. Al poner dicho 
valor en el acumulador, activa los in- 
dicadores. 

Si no se ha pulsado ninguna tecla, el 
valor resultante es y la instrucción 
BEQ $4035 fuerza un retroceso a JSR 
$FFE4. Pero si en cambio se pulsó al- 
guna tecla, el acumulador contendrá 
un valor distinto de cero y no se acti- 
vará el indicador de cero. En conse- 
cuencia la instrucción BEQ no forzará 
salto alguno y el micro abandonará la 
rutina. 

En otras palabras, el microproce- 
sador recorre esta rutina una vez y 
otra, manteniendo en la pantalla los 
titulares de presentación del juego, 
hasta que se pulse una tecla cual- 
quiera. 

La siguiente rutina escribirá por en- 
cima de este bucle de depuración, 
pero puedes usarlo para ir compro- 
bando lo que llevas tecleado. 

EL ACANTILADO 

Ahora tienes que teclear el si- 
guiente programa de pokeo en BA- 
SIC, ejecutarlo, y guardar en cinta 
mediante un SAVE la tabla de datos 
que construye, igual que hicimos an- 
tes: 



10 



= 0TO 



20 
30 
40 
50 



,A% 



ADD=17184:FORI 

32000 

READA%:POKEADD + l 
IFA% = 255GOTO50 
NEXT 
END 

17184 DATA 8,21,31,117,105, 

0,9,21,98,0 
17194 DATA 10,21,106,107, 
178,0,11,23,98,0 
DATA 12,23,173,189, 
178,0,13,25,98,0 
17214 DATA 14,25,177,176, 

174,0,15,26,171,0 
17224 DATA 16,26,177,176, 



17204 



174,0,17,27,171,0 
17234 DATA 18,27,177,0,0,0, 
255,0 

A continuación puedes teclear la ru- 
tina en código máquina, ensamblarla, 
guardarla y llamarla, utilizando nue- 
vamente el método visto anterior- 
mente: 



ORG 16437 
LDY #$FF 
INY 

LDX $4320, Y 
INY 

LDA $4320, Y 
BEQ $4059 
INY 

STY $FB 
TAY 

JSR $FFF0 
LDY $FB 



LDA $4320, Y 
BEQ $4037 
INY 

JSR $FFD2 
CLC 

BCC $404A 
NOP 
NOP 
NOP 

JSR $FFE4 
BEQ $4059 



F UNCIONAMIENTO DEL 
PROGRAMA 

Esta parte del programa utiliza los 
símbolos gráficos del Commodore 
para formar letras ampliadas. Dichas 
letras se presentan directamente en la 
pantalla utilizando la rutina PLOT del 
Kernal ROM. Esta rutina sitúa el cur- 
sor en una posición especificada de la 
pantalla, imprimiendo a continuación 
el carácter en dicha posición. 




INPUT 23 



En el programa de BASIC, cada 
sección de los DATA está delimitada 
por un 0. Los dos primeros valores de 
cada sección especifican las coorde- 
nadas X e Y del principio de una línea 
de caracteres. La propia tabla finaliza 
con tres ceros. 

El 255 que figura a continuación 
sirve para informar al programa de po- 
keado de cuándo tiene que pararse. El 
propio programa pokeador empieza 
por construir su tabla de datos par- 
tiendo de 17184 hasta completar los 
datos de la página de presentación. 
Pero es evidente que no hay 32000 va- 
lores, como implicaría el límite del va- 
lor de I en el bucle FOR ... NEXT. 
La línea 30 se ocupa de esto, detec- 
tando el momento en que se alcanza 
el valor 255 y dando fin al programa. 



EL CODIGO MAQUINA 

La rutina en código máquina co- 
mienza inicializando un índice en el 
registro Y. Se fija su valor en FF, ya 
que Y se incrementa al principio del 
bucle. De esta forma, cuando el pro- 
cesador se va por primera vez a la ru- 
tina de impresión, el valor de Y es 
cero. En esta ocasión utilizamos un ín- 
dice, a diferencia de la primera parte 
de la rutina de impresión en que uti- 
lizábamos un puntero de dos bytes con 
índice nulo, debido a que los datos no 
van a superar los 255 bytes. 

LDX $4320, Y carga en el registro Y 
el primer byte de la tabla de datos, es 
decir, la coordenada Y del comienzo 
de la primera línea de caracteres. Se 
incrementa el registro Y y se carga el 
segundo byte de la tabla, la coorde- 
nada X, en el acumulador. El valor 
4320 en hexadecimal es 17184 en de- 
cimal, que es la dirección inicial del 
principio de la tabla de datos. 

Si esta segunda coordenada es cero, 
la instrucción BEQ $4059 fuerza la sa- 
lida de la rutina. Por eso se utilizan 
tres ceros para marcar el final de los 
datos. El primero de ellos indica al 
procesador que debe volver hacia 
atrás y cargar nuevas coordenadas co- 
rrespondientes al principio de la línea 
siguiente. A continuación el índice Y 
cuenta dos elementos más de la tabla 
hasta que se ensaya un byte. 



El índice Y se incrementa y se al- 
macena en la dirección FB de la pá- 
gina cero, ya que se necesitará más 
adelante. La instrucción TAY trans- 
fiere al registro Y la coordenada con- 
tenida en el acumulador. Ahora ya es- 
tán las coordenadas en los registros re- 
queridos por la rutina PLOT. 

La instrucción JSR SFFF0 fuerza un 
salto a la rutina ROM que mueve el 
cursor a la posición especificada en los 
registros X e Y. 

Cuando se posiciona el cursor y el 
procesador regresa a esta rutina, se 
restaura de nuevo el registro Y, car- 
gándolo a partir de FB. 

Después LDA $4320, Y carga en el 
acumulador el siguiente byte de la ta- 
bla de datos; Y había sido ya incre- 
mentado antes de transferirlo. Si el 
byte cargado era un cero, la instruc- 
ción BEQ $4037 fuerza un salto hacia 
atrás hasta la primera instrucción 
INY, quedando en condiciones de car- 
gar las coordenadas iniciales de la lí- 
nea siguiente o salir de la rutina. 

Si el byte cargado no es un cero, el 
índice Y se incrementa nuevamente y 
el procesador salta a la subrutina de 
ROM encargada de sacar los caracte- 
res por pantalla. CLC y BCC $404A 
envían al procesador a cargar y pre- 
sentar el siguiente byte de la tabla de 
datos. 

Al leer la línea DATA, observarás 



que 8 y 21 son las coordenadas Y y X 
de la primera posición de impresión. 
El número 31 hace que los siguientes 
caracteres aparezcan en azul. 117 y 
105 son los dos arcos que juntos con- 
figuran la parte superior de la letra C. 

La siguiente línea empieza con 9 y 
21, que es un carácter cuadrado si- 
tuado debajo del principio de la línea 
anterior. El 98 da una línea vertical 
que forma la parte posterior de la C, 
y así sucesivamente. Puedes ir dedu- 
ciendo los caracteres a imprimir a par- 
tir de las tablas del Apéndice F de la 
Guía de Usuario del Commodore. '64, 
o del Apéndice C de la Guía del Pro- 
gramador. 

Observando las coordenadas pue- 
des ver que las letras se imprimen en 
la pantalla, desplazadas todas ellas un 
carácter cuadrado hacia la derecha. 
De aquí r esulta el declive de la palabra 
| CLIFF [ por la pantalla. 



CORRECCIONES 

Normalmente, el procesador se iría 
desde aquí al resto del programa, pero 
por ahora hemos llegado al final de la 
primera parte de Abismo. Por eso ne- 
cesitas de momento otro bucle de de- 
puración que retenga la presentación 
en pantalla a fin de que puedas ver si 
el programa trabaja de manera ade- 
cuada. 



Los lectores que deseéis entrar este programa debéis seguir los siguientes 
pasos: 

1) Limpiar la zona de trabajo y/o leer rutinas ya grabadas. 

2) Entrar las diferentes .subruti ñas del artículo. 

3) Guardar la nueva versión del programa 
PRIMER - PASO: Limpiar la zona de trabajo. 

a) Desde un ensamblador o monitor F3000, 6900,00 

b) Desde BASIC hacer en modo directo: 

FOR N=12288 TO 26880; POKE N,0: NEXT (RETURN) 
LECTURA DE RUTINAS GRABADAS: 

a) Desde ensamblador L "nombre del programa", xx 

b) Desde BASIC hacer LOAD "nombre del programa", xx, 1 Siendo xx=01 
para la cinta y 08 para el disco 

SEGUNDO PASO: Entrada de rutinas 

a) Desde ensamblador: entrar las rutinas en ensamblador, o bien salir 
hasta el BASIC y entrar los cargadores de BASIC 

b) Desde el BASIC: entrar los cargadores de BASIC 
TERCER PASO: Guardar el programa 

a) Desde ensamblador: S"nombre nueva versión", xx 

b) Desde el BASIC hacer en modo directo: 

POKE 43,0: POKE 44,48 (POKE 45,0: POKE 46, 105 (return) 
A continuación hacer SAVE" nombre nueva versión", xx,l 

ARRANQUE DEL PROGRAMA: 
Hacer SYS 26448 cuando estén instaladas todas las subrutinas. 
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PROGRAMA MULTIGESTION 

Este mes, en esta sección, os presentamos un programa que engloba cinco utilidades: un fichero 
capaz de almacenar la información de 100 fichas; una pequeña guía telefónica; un programa de 
contabilidad; un control de stocks y un último programa que nos permite construir gráficos de 
barras. Es lo que se llama un programa integrado. 

Los subprogramas de control de stocks, la guía telefónica y la contabilidad ya se encuentran explicados en 
sus propios menús y son de fácil manejo. Las instrucciones para trabajar con el fichero son: 

e: para entrar datos en las fichas, 
s: para pasar a la siguiente ficha, 
a: para acceder a la ficha anterior, 
n: para buscar una ficha por su número, 
h: para buscar una ficha por el índice. 
«Carga», «salvado», «salida» son instrucciones del fichero que debemos escribir por completo. «Salvado» 
graba la cinta en el contenido de las fichas. «Carga» recupera de la cinta dicho contenido. Y «salida» 
vuelve el programa al menú principal. Para utilizar el programa de gráficos de barras tan sólo debemos 
saber que «s» es para volver al menú principal y «o» para pasar al siguiente gráfico. 
Para acceder al programa se nos pedirá un código, y éste es: SOOe o XSPe SOOexOa. 

Félix Ortega 

10 A$(1) = "GAST0SD0MESTIC0S":A$(2) = "ENTRETENIMIENT0": A$ (3) -"ALQUILERES" 

15 A${8)-"INGRES.":A$(4)-"R0PA":A$(5) = J 'C0CHE":A${6)-"VACACI0N"-A$(7) = "VARI0S" 

20 DIMC$(1OO,8):C=1:DIMS$(3OO,4):DIMD(15):DIMT${100 1) 

25 DIMD$(4,400):CO = 0:GOTO 860 

30 REM ***** CONTROL DE STOCKS ***** 

35 POKE 53280, 0:POKE 53281 ,0:PRI NT"[SHIFT + CLR /H0ME][CTRL+6][ 1CTCRSR ABAJ0][ 
8*CRSR DCHA.]"; 

40 PRINT "[SHIFT+CJONTROL DE [SHIFT+S] TOCKS": FORA=0 TO 900'NEXT A 
45 PRINT "[SHIFT+CLR/H0ME]";TAB(15); "[SHIFT+OJPCIONES": PRINT TABU5); 
" = = = = = = = = ": PRINT "[ 2*CRSR ABAJO]" 

50 PRINT "[SHIFT+C]ARGAR EXISTENCIAS ACTUALES [ 2 ESPACIOS] ========> r 

55 PRINT "[SHIFT+S]ALVAR EXISTENCIAS ACTUALES [ 2 ESPACIOS] = ==='= = ==> 2 » 

60 PRINT "[SHIFT+L]ISTAR EXISTENCIAS ACTUALES [ 2 ESPACIOS] ========> 3 « 

65 PRINT f "[SHIFT+L]ISTAR EXISTENCIAS A RENOVAR = = = = = = = = > 4" 

70 PRINT "[SHIFT+C]AMBIAR DATOS DE UN ELEMENTO = = = = = = = = > 5" 

75 PRINT "[SHIFT+E]NTRAR NUMERO DE ELEMENTOS VENDIDOS => 6" 

80 PRINT "[SHIFT+S]ALIDA AL MENU PRINCIPAL [ 5 ESPACIOS] = = = = = = = = > 7" 

85 PRINT "[ 3*CRSR ABAJO] [ 40*COMM + @]" 

90 PRINT" t [3] = >[SHIFT + M]ENU/[2ESPACI0S][CTRL + 9][SHIFT+P]RES OPCION DESEADA 
[CTRL + 0]",- ' 

95 GET A$ 

100 IF A$< "1" OR A$>"7" THEN 95 

105 PRINT "[SHIFT+CLR/HOME]": ON VAL (A$) GOSUB 1530,1440,115 180 240 390 550 

110 GOTO 45 W 

115 FOR A = TO 300 

120 IFS$(A,0) = " "THEN 170 

125 PRINT "[SHIFT+CLR/HOME]" 

130 PRINT "[SHIFT+L]IBRO:";S$(A I 0) 

135 PRINT "[SHIFT+E]DITORIAL: ";S$(A,1) 
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PRINT "[SHIFT+A]UTOR: ";S$(A,2) 

PRINT "[SHlFT+C]ODIGO REF.:" ;S$(A,3) 

IF VAL(S$(A ( 4))<VAL(S$(A,3)) THEN PRINT 1 

RESTANTES: ";S$(A, 4) ;"[CTRL + 0]" 

I FVAL(S$(A,4))>- VAL(S$(A,3))TMEN PRINT' 

GET A$: IF A$ - " " THEN 160 

IF A$ = " f " THEN 45 

NEXT A 

RETURN 

OPEN 4,4:CMD 4 

FOR A=0 TO 300 

IF S$(A,0) = " " THEN 230 

IF VAL (S$ (A, 4))> VAL<S$(A,3)) THEN 230 

PRINT "[SHIFT+L]IBRO:" ;S${A,0) 

PRINT "[SHI FT+EJDITORIAL:" ;S${A,1) 

PRINT "[SHIFT+AJUTOR:" ;S$<A,2) 

PRINT "[SHIFT+CJODIGO REF.:" ;S$(A,3) 



[CTRL +9] [SHIFT + E]XISTENCIAS 



[SHIFT+E]XISTENCIASRESTANTES:";S$(A,4) 



140 
145 
150 

155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 

220 PRINT "[SHI FT+ EXISTENCIAS RESTANTES:" ;S$(A,4) 
225 P R I NT "********** *********** 

230 NEXT A 

235 GLOSE 4:RETURN 

240 OPEN 1,0,0: PRINT "[SH IFT + N]OMBRE DEL LIBRO": INPUT#1,A$: PRINT 

245 D = -l 

250 FOR A=0 TO 300 

255 IF S${A,0)-A$ AND D = -l THEN D = A 

260 NEXT A 

265 ¡F D=-l THEN PRINT "[SHIFT+NJO SE HA ENCONTRADO ESE LIBRO.": CLOSE l:GOTO 240 

270 A = D 

275 PRINT "[SHI FT+NJOMBRE DEL LIBRO:" ;S$(A,0) 

280 PRINT "[SHI FT+ EJDITOR I AL: " ;S$(A,1) 

285 PRINT "[SHIFT+AJUTOR:" ;S$(A,2) 

290 PRINT "[SHIFT+C]ODIGO REF.:" ¡S$(A,3) 

295 PRINT "[SHIFT+EJXISTENCIAS RESTANTES" ;S$(A,4) 

300 PRINT " ************* * ************************ " 

305 PRINT "[SHIFT+N]UEVO NOMBRE DEL LIBRO:": INPUT#1,A$:PRINT 
310 IF A$ = " " THEN A$ = S$(A,0) 
315 S$(A, 0)=A$ 

320 PRINT "[SHIFT+N]UEVA EDITORIAL:" ;: ¡NPUT#1,A$:PR1 NT 
325 IFA$ = " " THEN A$ = S$(A, 1) 
330 S$(A,1) = A$ 

335 PRINT "[SHIFT+N]UEVO AUTOR:" ;:INPUT#1,A$:PRINT 
340 IFA$ = " " THEN A$ = S$(A,2) 
345 S$(A,2) = A$ 

350 PRINT "[SHIFT+NJUEVO CODIGO REF.:" ;:INPUT#1,A$:PRINT 
355 IFA$ = " " THEN A$ = S$(A,3) 
360 S$(A,3) = A$ 

365 PRINT "[SHIFT+NJUEVAS EXISTENCIAS RESTANTES:" ;:INPUT#1,A$:PRINT 
370 IFA$ = " "THEN A$ = S$(A,4) 
375 S$(A,4)-A$ 
380 CLOSE 1 
385 RETURN 
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N]0 HAY TAL LIBRO":CLOSE 1:G0T0 390 



390 OPEN 1,0,0: PRINT "[SHI FT + N]OMBRE DEL LIBRO": INPUT#1,A$:PRINT 
395 D=-l 
400 FOR A = TO 300 
405 IF S$(A,0)=A$ THEN D = A 
410 NEXTA 

415 IF D= — 1 THEN PRINT "[SHIFT- 
420 A = D 

425 PRINT "[SHIFT+E]XISTENCIAS ANTERIORES:" ;S$(A,4) 
430 PRINT "[SHIFT+NJUMERO VENDIDO:" :INPUT#1, N:CLOSE 1 
435 S$ <A,4) = STR$(VAL(S$(A,4))-N) 
440 RETURN 

445 POKE 53280, 0:POKE 53281, 0:PRI NT CHR$(8);CHR$(14);"[SHIFT + CLR/H0ME][2*CRSR 

ABAJ0][4*CRSRDCHA.][CTRL + 6]" ; 
450 PRINT"[CTRL + 9][5ESPACIOS][CTRL + 0][2ESPACIOS][CTRL + 9][5ESPACIOS][CTRL + 0][2 

ESPACIOS][SHIFT + ESPACIO][CTRL + 9][4ESPACIOS][CTRL + 0][3ESPACIOS][CTRL + 9][3 

ESPACIOS][CTRL + 0][3ESPACIOS][CTRL + 9][2ESPACIOS][CTRL + 0][CTRL + 9][2ESPACIOS] 
[CTRL + 0]" 

PRINT"[4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS] 
[CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL+0][3ESPACIOS][CTRL + 9][CTRL + 0][2 
ESPACIOS][CTRL + 9][CTRL + 0][CTRL + 9][CTRL + 0][CTRL + 9][CTRL + 0]" 
PRiNT"[4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS] 
[CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL+0][3ESPACIOS][CTRL + 9][CTRL + 0][2 
ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL+0]" 

PRINT"[4ESPACIOS][CTRL + 9][3ESPACIOS][CTRL + 0][4ESPACIOS][CTRL + 9][3ESPACIOS] 
[CTRL + 0][4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS] 
[CTRL + 9][CTRL + 0][2ESPACIOS.][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0]" 
PRINT"[4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS] 
[CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0][2 
ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0]" 

PRINT"[4ESPACIOS][CTRL + 93[CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][6ESPAGIOS] 
[CTRL+93[CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0][2 
ESPACIOS][CTRL+9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0]" 

PRINT"[4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][5ESPACIOS][CTRL + 0][3 
ESPACIOS][CTRL + 9]f4ESPACIOS][CTRL + 0][3ESPACIOS][CTRL + 9][3ESPACIOS][CTRL + 0][3 
ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0]" 

PRINT"[3*CRSRABAJO][12ESPACIOS][CTRL + 9][4ESPAC1OS][CTRL + 0][2ESPACIOS][CTRL + 
9][5ESPACIOS][CTRL+0][5ESPACIOS][CTRE+9][CTRL + 0]" 

PRINT"[11ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][8ESPACIOS] 
[CTRL+9][2ESPACIOS][CTRL + 0]" 

PRINT"[11ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][7ESPACIOS] 
[CTRL + 9][CTRL + 0][CTRL + 9][CTRL + 0]" 

PRINT"[llESPACIOS][CTRL+9][CTRL + 0][6ESPACIOS][CTRL + 9][5ESPACIOS][CTRL + 0][2 
ESPACIOS][CTRL+9][CTRL + 0][2ESPACIOS][CTRL + 9][CTRL + 0]" 

PRINT"[11ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS] 
[CTRL + 9][CTRL + 0][2ESPACIOS][CTRL + 9][5ESPACIOS][CTRL + 0]" 

PRINT"[llESPACIOS][CTRL + 9][CTRL + 0][6ESPACI-OS][CTRL + 9][CTRL + 0][3 ESPACIOS] 
[CTRL + 9][CTRL + 0][5ESPACIOS][CTRL + 9][CTRL + 0]" 

PRINT"[12ESPACIOS][CTRL + 9][4ESPACIOS][CTRL+.0][SHIFT+ESPACIO][CTRL + 9][5 
ESPACIOS][CTRL + 0][SHIFT+ESPACiO][4ESPACIOS][CTRL+9][CTRL + 0]" 
520 PRINT "[ 3*CRSR ABAJO] [ 40*COMM + @]" ; 



455 

460 

465 

470 

475 

480 

485 
490 
495 
500 
505 
510 
515 
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525 PRINT''[SHIFT + R]ETURN = > AVANZAR [9 ESPACIOS] Fl = >[CTRL + 9][SHIFT + T]ERM I NAR 

[CTRL + 0]"; 
530 GETA$:IFA$ = " " THEN 530 
535 I F A$ = CH R$(13) THEN 550 

540 IF A$ = CHR$(133) THENPR1NT "[SHIFT + CLR/HOME]": SYS 58648: END 
545 IF A$oCHR$(13) OR A$oCHR$(133) THEN 530 
550 REM ***** MEIN U PRINCIPAL ***** 

555 POKE53272,23:POKE56325,58:PRINT"[SHIFT + CLR/HOME][CRSRABAJO][13*CRSRDCHA.] 

[SHIFT+M1ENUPRINCIPAL" 
560 PRINT "[ 13 * CRSR DCHA.] = = = = = = = = = = = ^ = = " 

565 PRINT"[2*CRSRABAJO][CTRL + 9] Fl [CTRL + 0] [2 ESPACIOS] = = = = = = = = = = = = = = >[2 

ESPACIOS][SHIFT+F]ICHERO " 
570 PR1NT"[2*CRSRABAJO][CTRL + 9]F2[CTRL + 0][2ESPACIOS] = = = = = = = = = = = = = = >[2 

ESPACIOS][SHIFT + L]lSTINTELEFONICO " 
575 PR1NT'T2*CRSRABAJO][CTRL + 9]F3[CTRL + 0][2ESPACIOS] = = = = = = = = = = = = = = >[2 

ESPACIOS][SHIFT + C]ONTABILIDAD " 
580 PRINT'T2*CRSRABAJO][CTRL + 9]F5[CTRL + 0][2ESPACIOS] = = = = = = = = = = = = = = >[2 
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ESPACI0S][SHIFT + S]T0CKS[3 ESPACIOS]" 
585 PRINT"[2*CRSRABAJO]F7[2ESPACIOS] = = = = = = = = = = = = = = >[2ESPACIOS][SHIFT + 

G]RAFICOS" 

590 PRINT"[2*CRSRABAJ0][10ESPACI0S][CTRL+9][SHIFT+P]ULSE0PCI0NDESEADA[CTRL + 
0]" 

595 PRINT "[CRSR ABAJO] [ 40*COMM + @]" ; 

600 PRINT"[SHIFT + H] = >HORA[llESPACIOS][SHIFT + R]ETURN = >[SHIFT + F][SHIFT+E][SHIFT 

+ C][SHIFT + 0][SHIFT+M][2*SHIFT+ESPACIO][SHIFT + C]64" ; 
605 GET N$:IF N$="" THEN 605 
610 IF N$="H" OR N$="[SHIFT+H]" THEN 1135 
615 IF N$ = CHR$(13) THEN 445 
620 IF N$ = "[F2]" THEN 1160 
625 IF N$ = CHR$(133) THEN 650 
630 IF N$ = CHR${134) THEN 1630 
635 IF N$ = CHR$(136) THEN 950 
640 IF N$ = CHR$(135) THEN 30 

645 IF N$oCHR$(13) OR N$<> CHR$(133) OR N$<>CHR$(134) OR N$oCHR$(135) THEN 
925 

650 REM ***** FICHERO ***** 

655 PRINT "[SHIFT+CLR/HOME]" 

660 PRINT "[COMM + A][ 38*SHIFT+*][COMM + S]" ; 

665 FOR E = TO 16 

670 PRINT "[SHIFT+-][ 38 ESPACIOS][SHIFT + -]" ; 
675 NEXT E 

680 PRINT "[COMM + Z][ 38*SHIFT+*][COMM+X]" 

685 PRINT "[CLR/HOMEH 2*CRSR ABAJO][CRSR DCHA.][SHIFT + F]ICHA " ; C," = >" ; C$ (C,0) 

690 FOR E=l TO 8: PRINT" [CRSR ABAJO][CRSR DCHA.]";C$(C, E): NEXT E 

695 PRINT "[ 3*CRSR ABAJO] = >;:OPEN 1,0, 0: INPUT#1,D$:PRINT: CLOSE 1 

700 IF D$ = "E" OR D$ = [SHIFT+E] THEN GOSUB 745 

705 IF D$="CARGA" THEN GOSUB 1530 

710 IF D$="SALVADO" THEN GOSUB 1440 

715 IF D$="S" THEN C=C+1: IF O100 THEN C=100 

720 IF D$ = "A" THEN C-C-l: IF C< = THEN C=l 

725 IF D$-"N" THEN INPUT C:IFC< = OR C> 100 THEN C=l 

730 IF D$ = "B" THEN GOSUB 765 

735 IF D$="SALIDA ÍI THEN 550 

740 PRINT "[SHIFT+CLR/HOME]": GOTO 660 

745 REM ***** ENTRADA ***** 

750 PRINT "[CLR/HOMEH 2*CRSR ABAJO]",;; "[ 3*CRSR DCHA.]"; :GOSUB 800: C$(C, 
0)-Q$:PRINT 

755 FORE=lTO8:PRINT"[CRSRABAJO][CRSRDCHA.]";:GOSUB800:C$(C r E) = Q$:PRINT-NEXTE 
760 RETURN 

765 INPUT "[SHIFT+T]ITULO = >";T$ 

770 Cl = - 1 

775 FOR F = TO 100 

780 IF C$(F,0) = T$ THEN C1 = F 

785 NEXT F 

790 IF Cl— 1 THEN PRINT "[SHIFT+N]0 ESTA ALMACENADO TAL TITULO": GOTO 765 
795 C=C1: RETURN 
800 Q$=" " 
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805 GET K$ 

810 IF K$ = CHR$(17) OR K$ = CHR$(145) THEN 805 

815 IF K$ = CHR$(13) THEN PRINT "[SH1FT + ESPACIO]"; : RETURN 

820 IF K$ = CHR$(29) THEN PRINT"[CTRL + 0] [CRSR ¡ZGDA.]"; 

825 IF K$ = CHR$(157) THEN PRINT "[CTRL + 0] [CRSR IZQDA.]"; 

830 IF K$ = CHR$(20) OR K$-CHR${148) THEN 805 

835 IF K$ = CHR$(19) OR K$ = CHR$(147) THEN 805 

840 IF K$ = CHR$(34) THEN805 

845 PRINT K$;"[CTRL+9][CTRL+0][CRSR IZQDA.]"; 

850 Q$ = Q$ + K$ 

855 GOTO 805 

860 REM ***** ENTRADA SISTEMA ***** 

865 POKE650,128:POKE53280 1 0:POKE53281,0:PRINT"[SHIFT+CLR/HOME]" ; CHR$(8);CHR${14) 
870 PRINT "[CTRL + 6][SHIFT+CLR/HOME][ 23*CRSR ABAJOK 40*COMM + (5)]"; 
875 PRINT "[SHIFT + C]ODIGO S. POR FAVOR -> [CTRL+1]"; 
880 INPUT CS$ 

885 IF CS$="XSPE S00EX0A" OR CS$="S00E" THEN 900 

890 IF CS$<>"XSPE S00EX0A" OR CS$O"S00E" OR C$ = " " THEN 895 

895 POKE 53272 40: POKE 56325,58: POKE 648,128: STOP - 

900 PRINT"[CTRL + 6][CRSRABAJO][SHIFT + CLR/HOME][22*CRSRABAJO][40*COMM + @]" ; 
905 PRINT "[CTRL + 9][3 ESPACIOS][SH IFT+C]ODIGO ACEPTADO -[2 
ESPACIOS][SHIFT+E]NTRADA INICIADA [2 ESPACIOS][CTRL+0]" ; 
910 FOR WW=0 TO 1000 
.915 NEXTWW 
920 GOTO 1105 

925 REM ***** OPCION NO VALIDA ***** 

930 PRINT "[CLR/HOMEH 22*CRSR ABAJO] [ 40 *COMM +@]"; 

935 PRINT " ********** [SHIFT + 0]PCION NO VALIDA ********** ». 

940 FOR WW-0 TO 1000: NEXT 

945 POKE 56325,255: GOTO 550 

950 REM ***** GRAFICOS ***** 

955 PRINT "[SHIFT+CLR/HOME]" 

960 INPUT "[SHIFT+R]OTUL0 VERTICAL" ; V$ 

965 INPUT "[SHIFT+R]OTULO HORIZONTAL " ; H$ 

970 PRINT: FOR A=l TO 15 

975 PRINT "[SHIFT+VJALOR DEL DADO " ; A ;: INPUT D(A) 
980 NEXT A 
985 M = 

990 FOR A=l TO 15 

995 IF D(A)>M THEN M = D(A) 

1000 NEXT A 

1005 S = 20/M 

1010 FOR A=l TO 15 

1015 D(A) = D(A)*S 

1020 NEXT A 

1025 REM ***** DIBUJO GRAFICO ***** 

1030 PRINT "[SHIFT+CLR/HOME]": FOR A=l TO LEN(V$) 

Debido a la extensión de este programa su segunda y última parte se publicará en el siguiente 

número de ÍNPUT. 
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3065 
4500 



DCHA.HCOMM. + l] 
[SHIFT+P][SHIFT+E] 
[SHIFT+IHSHIFT+G] 
[SHIFT+A][CLR/HOME]"; 4505 
:GOTO 3020 
H%= — !;[%= — 1: 

J% = -l:GOTO 3020 4510 
FOR A=1760 TO 1772 



STEP3:FOR B=A TO 
A+l.-POKE B+54272, 
9:NEXT B 

GET A$:IF A$ = CHR$(32) 

THENN%=(A-1757)/ 

3:G0T0 4515 

FOR B=A TO A+l:POKE 

B + 5¿f272,10:NEXT B, 




A:GOTO 4500 
4515 FOR Z=N% TO 1 

STEP-1:KK=((Z-1)*3)+ 

1760:POKE KK + 54272, 

9:POKE KK + 

54273,9 
4520 GET A$:IF A$>"9" OR 

(A$<"5" AND A$<>"0") 

THEN4520 
4525 IF A$ = "0" THENA$= 

"10" 

4530 ON VAL{A$)-4G0SUB 

5000,6000,7000,5500, 

6500,7500 
4535 DR = 50:DM=40:GOSUB 

8000:GOSUB 

2000:KK=((Z-1)*3) + 

1760 

4540 IF D% = AND Z=l 

THEN4550 
4545 IF D%=0 THENPOKE 

KK + 54272, 10:POKE 

KK+54273,10: 

NEXT Z 

4550 FOR A=1760TO 1772 
STEP3:FOR B=A TO 
A+l:POKE B + 54272, 
10:NEXT B,A: 
RETURN 

5000 PRINT "[CLR/HOME][ 

4*CRSR ABAJO][ 8*CRSR 

DCHA.]";F$(R1%(P%));"[ 

2*CRSR ABAJO][ 3*CRSR 
IZQDA.]"; 
5005 IF P%=15 THENP%= 
-1 

5010 P% = P%+1:PRINT 

F$(R1%(P%));"[ 2*CRSR 
ABAJO][ 3*CRSR IZQDA.]"; 

5015 IF P%=15 THENPRINT 
F$(R1%(0)) ;: 
RETURN 

5020 PRINT F$(R1%(P%+1)) ; 
: RETURN 

5500 IF P%<2 THENPRINT 
"[CLR/HOME][ 4*CRSR 
ABAJO][ 8*CRSR DCHA,]"; 
F$(R1%(14+P%));"[ 
2*CRSR ABAJO][ 3*CRSR 
IZQDA. ]";:GOTO 5510 

5505 PRINT "[CLR/HOMEK 

4*CRSR ABAJO][ 8*CRSR 
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DCHA.]";F$<Rl%(P%-2)); 

"[ 2*CRSR ABAJO][ 

3*CRSR IZQDA.]"; 
5510 IF P% = THENP%=16 
5515 P%=P%-1:PRINT 

F$(R1%(P%));"[ 2*CRSR 

ABAJO][ 3*CRSR IZQDA.]"; 
5520 IF P%=15 THENPRINT 

F$(R1%(0)) ;: 

RETURN 
5525 PRINT F$(R1%(P% + 1)) ; 

iRETURN 
6000 PRINT "[CLR/HOMEH 

4*CRSR ABAJO]", "[ 

5*CRSR DCHA.]"; 

F$(R2%(Q%)) ; "[ 2*CRSR 

ABAJOH 3*CRSR 

IZQDA.]"; 
6005 IF Q%=15 THENQ% = 

-1 

6010 Q%=Q%+1: PRINT 

F$(R2%(Q%));"[ 2*CRSR 
ABAJO][ 3*CRSR 
IZQDA.]"; 

6015 IF Q% = 15 THENPRINT 

F$(R2%(0));: 

RETURN 
6020 PRINT F$(R2%(Q% + 1)) ; 

:RETURN 
6500 IF Q%<2 THENPRINT 

"[CLR/HOMEH 4*CRSR 

ABAJOJVT 5*CRSR 

DCHA.]"; 

F$(R2%{14+Q%));"[ 
2*CRSR ABAJO][ 3*CRSR 
IZQDA.]";:GOTO 
6510 

6505 PRINT "[CLR/HOME][ 
4*CRSR ABAJO]","[ 
5*CRSR DCHA.]"; 
F$(R2%(Q%-2)) ; "[ 
2*CRSR ABAJO][ 3*CRSR 
IZQDA.]"; 

6510 IF Q% = THENQ% = 
16 

6515 Q% = Q%~1:PRINT 

F$(R2%(Q%)) ; "[ 2*CRSR 
ABAJOH 3*CRSR 
IZQDA.]"; 

6520 IF Q%=15 THENPRINT 

F$(R2%(0));: 

RETURN 



6525 PRINT F$(R2%CQ%+1)) ; 

iRETURN 
7000 PRINT "[CLR/HOMEH 

4*CRSR ABAJO", ,"[ 

2*CRSR DCHA.]"; 

F$(R3%(R%));"[ 2*CRSR 

ABAJO][ 3*CRSR 

IZQDA.]"; 
7005 IF R%=15 THENR% = 

-1 

7010 R% + R%+1:PRINT 

F$(R3%(R%));"[ 2*CRSR 

ABAJO][ 3*CRSR 

IZQDA.]"; 
7015 IF R%=15 THENPRINT 

F$(R3%(0)) ;: 

RETURN 
7020 PRINT F$(R3%(R%+ 1)); 

iRETURN 
7500 IF R%<2 THENPRINT 

"[CLR/HOMEH 4*CRSR 

ABAJO]",, "[ 2*CRSR 

DCHA.]"; 

F$(R3%(14+R%));"[ 
2*CRSR ABAJO][ 3*CRSR 
IZQDA.]";:GOTO 
7510 

7505 PRINT "[CLR/HOME][ 
4*CRSR ABAJO]", ,"[ 
2*CRSR DCHA.]"; 
F$(R3%(R%-2));"[ 
2*CRSR ABAJOH 3*CRSR 
IZQDA.]"; 

7510 IF R% = THENR% = 
16 

7515 R% = R%-1:PRINT 

F${R3%(R%)) ; "t 2*CRSR 

ABAJO][ 3*CRSR 

IZQDA.]"; 
7520 IF R% = 15 THENPRINT 

F$(R3%(0));: 

RETURN 
7525 PRINT F$(R3%(R%+1)) ; 

:RETURN 

La línea 3000 toma un número al 
azar, el cual determina si se le ofrecen 
más avances al jugador, mientras que 
la línea 3005 activa el flag de parada 
cuando se ha tomado el número apro- 
piado. 

Las líneas 3020 a 2065 hacen par- 
padear las luces de la apuesta (la can- 



tidad apostada) y del stop, y leen lo 
que ha pulsado el jugador. 

Las líneas 4500 a 4550 constituyen la 
rutina del avance. Las subrutinas para 
mover las ruletas son llamadas según 
la elección o elecciones del jugador. 
Las líneas 5000 a 5205 mueven hacia 
arriba la primera ruleta, mientras que 
las líneas 5500 a 5525 la mueven hacia 
abajo. 

Las líneas 6000 a 6025 y las líneas 
6500 a 6525 hacen lo propio con la se- 
gunda ruleta, y las líneas 7000 a 7025, 
así como las líneas 7500 a 7525, con- 
trolan la tercera ruleta. 



MAS COSAS 



8000 S=54272:P0KE S, 
150:POKE S + l, 
50 + DM:POKE S + 5, 
0:POKE S+6,240:POKE 
S + 24,15 

8005 POKE S+4,17:FOR DD=1 
TO DR:NEXT DD:P0KE 
S+24, 

0:DM = DM + 10: RETURN 
9000 FOR A=1172 TO 1532 
STEP40:FOR B=A TO 
A+4:P0KE B + 54272, 
15:NEXT B,A:RETURN 
9500 PRINT "[CLR/HOMEH 
21*CRSR ABAJO]",, "[ 
7*CRSR 

DCHA.HC0MM + 6HSHIFT 
+ZH 7*CRSR 
IZQDA.HCOMM. + l]"; 
:IN = INT (M/100) 
9505 RM = M-(IN*100):PRINT 
MID$(STR$(IN),2); 
"[SHIFT+P]"; 
MID$(STR$(RM) + "0",2, 
2):RETURN 

Las líneas 8000 a 8005 son efectos 
sonoros activados a la parada de las 
ruletas. Ya tuvimos ocasión de exa- 
minarlos en esta revista. Las líneas 
9000 a 9505 borran la visualización de 
la apuesta a la derecha de las ruletas, 
con lo que aparece apagado y pronto 
para el siguiente intento en Superfru- 
tas, el juego para apostar a botón pul- 
sado. 
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EL ZORRO 
Y LAS OCAS (I) 



CONVIRTIENDO EL ORDENADOR 
EN UN JUGADOR HABIL 
EL ZORRO, LAS OCAS 
Y EL AJEDREZ 
TEORIA DEL PROGRAMA 



Tu ordenador, para jugar, puede 
convertirse en un astuto zorro o en unas 
temerosas ocas. 

Observa cómo se pueden aplicar mé- 
todos de Inteligencia Artificial a progra- 
mas escritos capaces de pensar. 

En un número anterior de INPUT 
viste cómo era posible escribir un pro- 
grama Otelo, en el que el ordenador 
jugaba de un modo bastante aceptable 
contra ti. En cualquier caso, con un 
poco de práctica, seguro que fuiste ca- 
paz de vencer al ordenador La mayoría 
de las veces. 

En el curso de las tres partes de pro- 
gramación de JUEGOS que forman 
este juego, verás cómo también se 
pueda escribir un programa más sofis- 
ticado, a fin de que tu ordenador 
puede jugar contra ti el juego del Zo- 
rro y las Ocas. El programa tiene mu- 
chos niveles de habilidad, de modo 
que puedes hacer que el juego sea tan 
difícil o tan fácil como quieras. 

El juego del Zorro y las Ocas ilustra 
muchos de los problemas y principios 
que se incluyen a la hora de escribir 
uno de ios más interesantes y perdu- 
rables programas de juegos: el aje- 
drez. La adquisición de un programa 
de ajedrez comercial de tipo medio, 
ejecutable en un microorde- 
nador, vale la pena, a no ser 
que los jugadores posean un 
nivel muy alto en ajedrez, o 
conozcan bien las debilidades 
de los programa de ajedrez. 

No se puede escribir un 
programa de ajedrez que valga la pena 
en BASIC, pues el ordenador va a tar- 
dar un siglo en realizar cada movi- 
miento. En los niveles superiores del 
Zorro y las Ocas, observarás que el 
programa tarda mucho más para de- 
cidir cada uno de sus movimientos 
— tal vez más de media hora en los ni- 
veles superiores ejecutados en orde- 
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nadores más lentos — . El programa 
aún sería mucho más lento si, en lugar 
de este juego, intentases escribir un 
programa de ajedrez. 

Necesitamos un juego más simple 
para mantener alejado nuestro juego- 
ejercicio del realismo del código má- 
quina. El Zorro y las Ocas nos viene 
de perlas porque posee muchas de las 
características del ajedrez, e incluso se 
juega con el mismo tipo de tablero. 

Este artículo se divide en 3 partes. 

En esta primera estudiarás los prin- 
cipios que se encierran en un pro- 
grama de este tipo — y que se irán de- 
sarrollando en la segunda y tercera 
parte del artículo hasta configurar un 
juego completo — . Pero comencemos 
observando el juego en sí mismo y 
todo lo que requiere el programa para 
que se pueda jugar con él. 



EL JUEGO 



El juego del Zorro y las Ocas se 
juega sobre los cuadros blancos de un 
tablero de ajedrez. Hay un zorro que 
empieza desde una esquina del tablero 
y cuatro ocas que comienzan desde el 
lado opuesto. Un jugador controla al 
zorro y el otro a las cuatro ocas. El ob- 
jetivo del juego consiste en lo si- 
guiente: el zorro ha de pasar entre las 
ocas para llegar al otro lado del ta- 
blero, y la misión de las ocas consiste 
en rodear al zorro. 

Con cuatro contra uno, el juego 
puede parecer un poco injusto, pero 
resulta que los movimientos de las 
ocas están limitados a avanzar única- 
mente hacia adelante, mientras que el 
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zorro se puede mover tanto hacia de- 
lante como hacia atrás. Ei programa 
está escrito de tal modo que el orde- 
nador puede tomar el puesto tanto del 
zorro como de las ocas, e incluso 
puede programarse para jugar contra 
sí mismo. 

ABORDANDO LOS PROBLEMAS 

El juego del Zorro y las Ocas es un 
pequeño ajedrez en el sentido de que 
no existe elemento de suerte en el 
juego: el resultado depende total- 
mente de la habilidad de los jugado- 
res. Aunque en teoría, el ordena- 
dor podría aprender a jugar a base 
de probar y equivocarse, como un ju- 
gador humano, en el estado actual, 
éste no es el mejor camino para re- 
solver los problemas que plantea este 
juego— y además, ¡el programa no ca- 
bría en tu microordenador...! 
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Programar un juego como el del Zo- 
rro y las Ocas, o el del ajedrez es real- 
mente un ejercicio de Inteligencia 
Artificial. Para ofrecer un firme de- 
safío a un oponente humano, el or- 
denador deberá ser capaz de jugar in- 
teligentemente. Desgraciadamente la 
máquina no puede mirar al ta- 
blero y absorber una relación de 
espacio entre las piezas, como tú 
haces. En su lugar, la posición en 
el tablero se convierte en valores 
numéricos que el ordenador 
puede entender. 

Si quieres escribir un programa para 
que el ordenador juegue «inteligente- 
mente», deberás tener en cuenta pri- 
mero la naturaleza del juego. El tipo de 
juego dictaminará el tipo de programa. 

Tal vez exista un método mejor, to- 
talmente documentado, que puedas 
adaptar a tu ordenador. Otros candi- 
datos similares a este tipo de trata- 
miento serían cosas como: resolver un 
cubo Rubik, jugar al tres en raya, o las 
aperturas en ajedrez. En tales casos, 
tu trabajo se verá bastante simplifi- 
cado. Sí existe un gran elemento de 
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suerte en el juego, es posible utilizar 
la estrategia de un solo movimiento , 
en ta que el programa examina todas 
las posibilidades abiertas que diseñase 
para que elija entre el mejor movi- 
miento. 

Los juegos Ludo y Monopúly po- 



Ello asegura que las ocas tiendan a 
permanecer en una línea recta — su 
configuración más fuerte — y el cuadro 
que llevará asignando el valor más alto 
se va alternando entre el final iz- 
quierdo y derecho de la fila. 

Además de la sencilla evaluación 
posicional, los cinco cuadros blancos 



delante del zorro tienen un significado 
especial en el juego. Sí observas la fi- 
gura 1, verás cinco cuadrados con las 
letras de A a E. 

Si sólo hay una oca situada en estos 
cuadros, o si hay dos ocas, y no están 
en las posiciones A o B, gana el zorro; 
o bien, si hay tres y éstas están en las 
posiciones ACD, BDE, ACE o BCE, 
el zorro aún sigue ganando. 

Al comienzo de cada turno de 
juego, cuando eí ordenador juegue, o 
bien a ser zorro o las ocas, el pro- 
grama salta a una subrutina que revisa 
la posición (o configuración) de todas 
las piezas y las convierte en un solo 
número que utiliza el programa para 
decidir que movimiento realizar. Una 
vez tomada la decisión, el número 
vuelve a convertirse en una configu- 
ración . 




drían ser candidatos preferibles de un 
solo movimiento . Juegos de este tipo 
requieren comparativamente rutinas 
de decisiones simples. 

En los juegos en los que entran po- 
cos o ningún elemento de azar, como 
el del Zorro y las Ocas, deberás utili- 
zar una estrategia de movimiento con- 
secutivo —observando entre una serie 
de movimientos — , a fin de investigar 
las posibles salidas. 

El programa encuentra el movi 
miento más ventajoso desde cada po 
sición y lo realiza. 



EVALUACION DE LA POSICION 

A fin de permitir al ordenador de- 
cidir cuál es el mejor movimiento den- 
tro de una categoría de posibilidades, 
a cada cuadro del tablero se le asigna 
un valor numérico. En el Zorro y las 
Ocas, cuanto más abajo se halle el zo- 
rro, tanto mejor para él, pues re- 
cuerda que éste gana cuando llega al 
otro extremo del tablero. 

Las filas de casillas están numeradas 
alternativamente de izquierda a dere- 
cha y luego de derecha a izquierda, 
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presentados con una escritura en 
forma de árbol, cuyas ramas emanan 
de la posición de las piezas (raíces). 
Por ejemplo, desde la posición en la 
figura 2, se podría trazar el primer ni- 
vel del árbol en la figura 3. Si miras 
dos movimientos más adelante el ár- 
bol se vuelve más complejo que en el 
segundo nivel — ten en cuenta que no 
siempre hay razón para que partan 
cuatro ramas de cada cuadro, ya que 
]a pieza podría estar bloqueada por 
otra, o podría hallarse en el extremo 
del tablero. 




ACELERANDO EL PROGRAMA 

Con el número de cálculos a ejecu- 
tar, el BASIC puede resultar muy 
lento, pero existen tres caminos para 
acelerar el programa. En primer lu- 
gar, puedes asegurarte de que el pro- 
grama no molesta para evaluar el pró- 
ximo movimiento del adversario, en 
caso de que tu movimiento haya ga- 
nado la partida. En cualquier caso, 



ello sólo ahorra tiempo al final, pero 
no durante la partida. 

En segundo lugar, se puede llegar 
muy frecuentemente a la misma con- 
figuración desde muy diversas vías. Si 
éste es el caso, valdrá la pena el es- 
fuerzo de construir una tabla de con- 
figuraciones comunes y de valores cal- 
culados asociados con ellos. Una tabla 
de este tipo detiene el programa vol- 
viendo a asignar cada vez la posición 




individualmente, pero no hay duda en 
la conveniencia de grabar una confi- 
guración que requiriese menos tiempo 
en ser evaluada que lo que se tardaría 
en encontrarla en la tabla. En teoría, 
la tabla sólo puede ser utilizada 
cuando el programa ha avanzado tres 
pliegues (turnos completos de cada ju- 
gador) o más. La práctica del juego 
demuestra que no hay razón de regis- 
trar nada en la tabla hasta que se ha- 
yan avanzado, como mínimo, cinco 
pliegues. 

En tercer lugar, se puede utilizar el 
denominado algoritmo alfa-beta. Este 
fue descubierto a principios de los 
años sesenta por investigadores del 
campo de Inteligencia Artificial, y se 
emplea cada vez que el registro del ár- 
bol necesita examinar más de un plie- 
gue de un árbol. 

Si observas ía figura 3 podrás ver la 
evaluación de los posibles movimien- 
tos de una posición del zorro. El pro- 
grama evaluará completamente la 
rama A y luego pasará a la rama B. Si 
en cualquiera de las fases de evalua- 
ción de B se detecta un resultado erró- 
neo, se rechazarán todos los movi- 
mientos en B. El mejor movimiento 
efectuado "hasta él momento queda re- 
gistrado en la memoria del programa 
y comparado con los resultados en 
cada rama en turno. Si se encuentra en 
un punto cualquiera un resultado erró- 
neo, ello provocará que toda la rama 
sea rechazada. 

El algoritmo alfa-beta, adquiere 
mayor importancia realmente a me- 
dida que aumenta la complejidad del 
árbol. Si el árbol aumenta considera- 
blemente de tamaño, puede permi- 
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tirse descartar alrededor del 99,8 % 
de posibilidades a un nivel primario, 
con un ahorro similar de tiempo. Pero 
en este juego el árbol no se aproxi- 
mará a este nivel de complejidad. 

EJECUTANDO EL PROGRAMA 

Ahora que ya tienes algo de idea 
acerca de la teoría que alberga la es- 
critura del programa de un juego de 
estas características, puedes pasar a la 
primera sección del programa. Con- 
siste en trazar los gráficos, aunque no 
verás nada en este nivel. Si ejecutas el 
programa con RUN, no olvides gra- 
barlo (SAVE) en un cassette que uti- 
lizarás en la próxima parte del pro- 
grama. 

Antes de utilizar el programa Com- 
modore deberás llevar hacia arriba el 
inicio del BASIC a fin de dejar espa- 
cio libre para el juego de gráficos. Es- 
cribe: 

POKE 44,18 
POKE 256*18,0 
NEW 

cada vez antes de cargar el programa. 

1 IF PEEK(44)=8 TH EN POKE 
44,18:POKE 256 * 18, 
0:PRINT 'carga de nuevo el 
programa': NEW 

2 POKE 53280, 6:POKE 53281, 
6PRINT '[SHIFT + CLR/ 
HOME][CTRL+8]definiendo 
gráficos.. .'¡GOSUB 4000 

4000 POKE 56334;0:POKE 1,35 
4010 FOR z=0 TO 1023:POKE 

2048 + z ( PEEK(53248 + 

z):NEXT z 
4020 POKE 1,39:P0KE 56334,1 
4030 FOR z=680 TO 711:READ 

X:POKE 2048 + z,X:NEXT z 
4040 FOR z-3329 TO 

3334:POKE z,129:NEXT 

z:P0KE„3328,255:P0KE 

335,255 
4050 RETURN s ** 
5000 DATA 0,0,0,7,205,123,6 

0,15,12,20,31,152,248, 

216,48,224 
5010 DATA 20,28,55,127,15, 

20,40,72,0,0,248,252,2 

50,40,20,20 




350 



f=FN a(ABS(p)) - 31:b 
b(f):IF b<0 THENb=b + 
bx:f=31 - f 

c=b / b(28):FOR a = 7 TO 
STEP - l:r$(a) = b$(INT (c), 
1 AND a):c=(c - ÍNT (c)).* 
16:NEXTa " 

r$(f /4) = LEFT$(r$(f /4),FN 
c(f)) + f$(f / 4 AND 1) + 
RIGHT$(r$(f / 4), 1 2 - FN 
r(f)) 

PRINT '[SHIFT+CLR/ 
HOME]';:FOR a = TO 
7:PRINTTAB(7); 
'[CTRL + 9][CTRL+5-[ 4 
espacios][CTRL + 0][CTRL + 
4]';s$(a)'[CTRL + 9][CTRL + 
5][4espaciosl' 
PRINT TAB(7) ; 
'[CTRL + 9[CTRL+5][ 4 
espacios][CTRL+0][COMM. 



+ l]';r$(a)TCTRL + 9][CTRL 
+ 5][ 4 espacios]':NEXT 
a:PRI NT 

'[CTRL+ 1]': RETURN 

Las líneas 310 a 350 muestran el ta- 
blero con las cinco piezas en posición. 
La subrutina es llamada una vez a 
cada turno del zorro y las ocas. 
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INPUT 39 



LA LUNA 
A TUS PIES 



En este formidable juego vas a nece- 
sitar de toda la habilidad y sangre fría 
de que seas capaz para maniobrar el 
módulo lunar de forma que pueda alu- 
nizar perfectamente. 



La programación de juegos no tiene 
por qué generar complicados progra- 
mas para producir un juego indepen- 
diente y completo. Aquí te presenta- 
mos una. versión del célebre programa 
Módulo lunar ( Lunar kmder) que con- 
tiene gráficos en alta resolución y un 
control total sobre el aparato. 

El juego es completo y muy variado 
según lo presentamos, pero tú tienes 
la posibilidad de adaptarlo a tus pre- 
ferencias personales. Por ejempío, 
puede que te guste añadir una rutina 
del tipo «¿otro intento?» para evitar 
volver otra vez al -RUN una vez que se 
ha concluido el descenso. O bien 
puede que desees alterar ios gráficos y 
los sonidos, 'I odo depende de th 

CONTROLES 

Las teclas de cursor derecha y cur- 
sor izquierda, así como la tecla de 
Commoclorc para alunizar. 



5 REM — — - INPUT 
COMMODORE 

6 REM 

10 H¡R£S1,0:MULTI7,4, 

4:COLOUR7,0:POKE54296, 
15:P0KE54277,190:P0KE 
54278,248 
15 POKE 54278,248 
70 FOR Z-20 TO 160 STEP 

20:Y = 

' 179-RND(1)*40:LINE 
Z-20,179,Z-10,Y,3 
72 FOR ¿2=1 T0,3:PL0T RND 
(l)*160,RND(iri5O,ZZ: 
NEXTZZ 

74 LINEZ-10,Y,Z,179,3:NEXT 
Z:PAINT0,199,1:TEXT64 Í 
192,"[.SHIFT+N][SHIFT+L] 
[SHIFT+(d][SHIFT-f M]",2, 
1,8 

76 UNE 0,199,159,199,2 



110 LX=RND(1)*248:LY=15 + 
RNDÜ)*10:XV=RND(1)*15 
-8:YY-0:F = 246 

115 GOSUB1040 

120 GOSUB1010:GOSUB2000: 
MULT17,RND(1)*2 + 4,RND 
(1)*8 + 1 

130 IF LY<192 THEN 120 

140 IF LX<72 OR LX>88 OR 
YV>4 THEN 160 

150 PR1NT "[S'HIFT + CLR/. 
H0ME][CTRL + 5][CRSR 
ABAJO][CRSRDCHA.][CTRL 
+ 9]FELICiDADES,HAS 
CONSEGUIDOATERRÍZAR!" 

155 POKE 54276,33: FOR Z=l 
TO 255:P0KE 54273, 
A:POKE 54273, 255-Z: 
NEXT Z: GO TO 170 

160 PRINT "ESHIFT + CLR/ 

HOME] -.CENTRE "[CTRL + 5] 



JUEGO COMPLETO 



HABILIDAD Y DECISION 



GRAFICOS LUNARES 



VELOCIMETRO 



CONTROL DE ATERRIZAJE 



ADAPTAR EL PROGRAMA 



EFECTOS SONOROS 



DESASTRES 



PROGRAMAS CON EXITO 



EL MODULO LUNAR 



CATASTROFICO 

ATERRIZAJE":P0KE54276, 

129 

FORZ=1TO100:COLOUR7, 
.RND(1)*2:P0KE54273,Z 
FOR ZZ=1 TO 10; NEXT ZZ, 

Z 

POKE 54276, 0:NRM: POKE 

198,0:END 
LX = LX + XV:LY-LY + YV: 
POKE54276,17:S : =255- 
(255ANDLY):POKE54273, 
S 

IF LY<13 THEN RETURN 
IF LX<0 THEN LX=151 
¡F LX>151 THEN LX=0 
TEXT LX,LY,"[SHIFT + X]'\ 
4, 1,8:GOSUB3000 
TEXTLX, LY, "[SHIFT + X]", 
4,1,8:P0KE54276,16: 
RETURN 



2000 YV=YV+,5:IF LY<13 

THEN RETURN 
2010 GETK$:IFPEEK(653) = 2 

AND.F>3THENYV=YV-1:F 

-F-3:RETURN 
2020 IF K$ - "[CRSR ABAJO]" 

THEN XV = XV - .5: F = F 

- 1: RETURN 
2030 IFK$ = "[CRSRDCHA.]" 

THENXV=XV+.5:F=F-1 . 



2040 RETURN 
3000. TEXT 1,1, "GAS 

:" + $TR$(F), 1,1,8 
3010 V-2*YV:ÍFABS(V)>122 

THENV=122*SGN(V) 

3020 TEXT75,1,"VELD:" + STR$ 
(V), 1,1,8 

3021 TEXT41,1,STR$(F), 0,1,8 

3022 TEXT123,1,STR$(V), 0,1,8 
3030 RETURN 





EL ORDENADOR 
A LA ESCUCHA 



Hasta ahora, el único medio de que 
disponíamos para comunicarnos con el 
ordenador era el teclado o el joystick, 
pero utilizando el conversor analógico- 
digital del que dispone es posible que 
también nos obedezca a distancia. 

En concreto utilizaremos la voz 
para comandarlo, ya que es la forma 
más natural de comunicación entre 
nosotros. Por este motivo los medios 
de telecomunicación habituales están 
basados en la palabra; de esta forma, 
dos ordenadores que deseen comuni- 
carse a distancia deberán hacerlo «ha- 
blando». 

El problema principal es, por tanto, 
conseguir que el ordenador «oiga». 
De esto se encargará un económico 
dispositivo electrónico que actuará 
como vox controller, es decir, conso- 
lador de voz. La única misión de este 
circuito será la de proporcionar una 
señal al ordenador cuando mediante 
un micrófono se capte un sonido de in- 



RGURA 1 



R1 







I 



tensidad adecuada. Aunque parezca 
algo simple, las aplicaciones que de él 
se derivan son numerosas. En el ar- 
tículo se describen algunas interesan- 
tes, aunque tú puedes encontrar otras 
muchas. 



EL CIRCUITO 



En la figura 1 se representa el es- 
quema electrónico del controlador de 
voz, de muy fácil construcción. Puede 
verse que sólo utiliza dos componen- 
tes activos con lo que resulta barato y 
fiable. 

El circuito consta de tres etapas. La 
primera de ellas está formada por un 
transistor y su red de polarización 
(Rl, R2 y R3). Su misión es amplificar 
la débil señal que proporciona el mi- 
crófono dinámico. La elección del mi- 
crófono no es crítica, pudiendo incluso 
utilizarse un altavoz convencional en 
lugar del mismo. 

La segunda etapa es un amplifica- 



dor de elevada ganancia formado por 
el primer operacional del LM 358, en 
configuración no inversora. A la salida 
del mismo se obtiene una señal com- 
prendida entre y 5 V que se aplica a 
un filtro paso-bajo, formado por R6 y 
C4, cuya función es eliminar las altas 
frecuencias. 

La última etapa es un comparador 
que proporciona 5 V a la salida 
cuando la tensión en la patilla 3 supera 
un cierto umbral fijado por R7 y R8. 
Se puede ajustar este umbral haciendo 
el dispositivo más sensible bajando el 
valor de R8, aunque no excesiva- 
mente, ya que cualquier ruido lo dis- 
pararía. 

Los valores propuestos son los más 
adecuados para que un débil sonido 
captado por el micrófono active la sa- 
lida, sin que el ruido ambiental lo 
afecte. 

En la figura 2 se representan las co- 
nexiones del transistor, circuito inte- 
grado y conector al ordenador. 



ci 

Micrófono 
dinámico 




Salida 



77777 77777 777777 
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Aplicaciones 



m 


EL CONTROLADOR DE VOZ 


■ EL PROGRAMA EMISOR 


m 


UN ALTO NUMERO 


■ EL PROGRAMA RECEPTOR 




DE APLICACIONES 


■ BARRA DE LEDS 


u 


UTILIZACION 


■ LISTADO DEL PROGRAMA 



COMO MODEM 



OTRAS APLICACIONES 



USO COMO MODEM TELEFONICO 

Quizá sea ésta la aplicación más in- 
teresante que hemos encontrado del 
circuito. Todos sabemos que la infor- 
mación que maneja el ordenador es 
binaria, es decir, señal («1») o no se- 
ñal («0»). Por lo tanto sólo es nece- 
sario distinguir entre dos niveles, que 
es precisamente lo que hace el contro- 
lador de voz. Como la sensibilidad del 
aparato es elevada, podemos utilizar 
la línea telefónica, que proporciona 
poca intensidad sonora, para estable- 
cer la comunicación. Podremos trans- 
mitir información de un ordenador a 
otro a través del teléfono. 

Es evidente que un ordenador debe 
funcionar como transmisor y el otro 
como receptor. Con el objeto de eco- 
nomizar, y sin que por ello la calidad 
se vea gravemente afectada, emplea- 
remos el altavoz del televisor como 
fuente emisora; el propio ordenador 
se encargará, con el chip de sonido, de 



generar la señal sonora mediante un 
programa adecuado. Es en el receptor 
donde se utilizará el controlador, aco- 
plado al teléfono. 

El programa desarrollado permitirá 
transmitir caracteres en formato AS- 
CII, ya que de esta forma se pueden 
aprovechar una serie de subrutinas del 
sistema operativo de los ordenadores 
y los programas quedan simplificados. 
Para que la transmisión sea eficiente 
se precisan dos bits adicionales a los 
siete del código ASCII, que son el bit 
de inicio y el de parada. El primero se 
representa por un nivel lógico 1 e in- 
dica al receptor que a continuación se 
transmite un carácter. El bit de parada 
se representa por un y se envía al fi- 
nal de cada carácter para restablecer 
un nivel bajo en la línea. Esto es co- 
nocido técnicamente como transmi- 
sión en serie asincrona, ya que los da- 
tos se transmiten bit tras bit y en cual- 
quier momento. 

En la figura 3 se representa cómo 
queda el tren binario al enviar el ca- 
rácter «A». Puede apreciarse que el 
primer bit que se envia tras el bit de 
inicio es el correspondiente al bit de 
menos peso del código de la «A» (65). 

El problema con el cual nos encon- 
tramos es que el tren de bits no se 
puede transmitir tal cual por el telé- 
fono. Lo que debe hacerse es asignar 
una forma de onda a cada bit; lo más 
sencillo es hacer corresponder un so- 
nido al valor «1», y ningún sonido al 
valor «0». Esto es lo que se conoce en 
el lenguaje de las telecomunicaciones 
con el nombre de modulación por co- 
rrimiento de amplitud o ASK. El so- 
nido que se le asigne al «1» debe ser 
el adecuado para que se propague 
bien por el teléfono, preparado sólo 
para transmitir la voz. Por este motivo 
se elige un tono entre 1 y 2 KHz para 
la emisión. 

Debido a que se trata de un modem 
experimental en el cual los costes se 



han reducido al mínimo, las velocida- 
des de transmisión no pueden ser de- 
masiado elevadas. Las malas caracte- 
rísticas del acoplamiento acústico li- 
mitan la velocidad a 25 Bauds para 
una tasa de error no demasiado alta, 
es decir, se pueden transmitir tres ca- 
racteres cada segundo. Se podría au- 
mentar si no importa una mayor fre- 
cuencia de errores. La aplicación bá- 
sica a la que puede ir destinado es la 
transmisión de mensajes entre orde- 
nadores. También es posible transmi- 
tir caracteres gráficos para formar di- 
bujos, e incluso gráficos en alta reso- 
lución, con algunas modificaciones en 
los programas. También es posible en- 
viar todos los caracteres de control 
(Return, Del, etc.), ya que tienen su 
correspondiente código ASCII. 

Los ordenadores deben estar con- 
trolados por dos programas distintos, 
uno encargado del emisor y otro del 
receptor. El programa del emisor 
tiene dos partes: una en BASIC y otra 
en código máquina. El programa en 
BASIC se encarga de pedir el mensaje 
a enviar (máximo 256 caracteres), 
convertirlo a código ASCII, guardarlo 
en memoria y poner en marcha el pro- 
grama emisor propiamente dicho. Si 
se desea enviar mensajes más largos 
sólo es necesario ejecutar varias veces 
este programa o modificarlo según fas 
necesidades. 

El programa en código máquina 
puede ser cargado con la ayuda de un 
ensamblador o bien utilizando la ver- 
sión BASIC. Funciona, del siguiente 
modo: en primer lugar se ajustan los 
valores del chip de sonido para que 
emita un tono de unos 2 KHZ. A con- 
tinuación se ajustan los contadores in- 
ternos para controlar de forma precisa 
la duración de cada pulso o bit. Esta 
debe ser de 40 milisegundos. Al trans- 
currir este intervalo de tiempo se ge- 
nera una interrupción no enmascara- 
ble, que hace saltar el programa a una 



Lista de componentes: 

Rl = 100 Kohm 

R2 = 150 Ohm 

R3 = 270 Ohm 

R4 = 390 Ohm 

R5 = 68 Kohm 

R6 = 10 Kohm 

R7 = 18 Kohm 

R8 = 3,9 Kohm 

R9 = 12 Kohm 

RIO = 6,8 Kohm 

Cl = 470 uF 

C2 = 470 uF 

C3 = 100 nF 

C4 - 27 nF 

TI = BC 337 o similar 

IC1 - LM 358 
Conexiones al ordenador: 

+5 Voltios a Pin 7 del 

port 1 de juegos 

Masa a Pin 8 

Salida a Pin 9 



subrutina de servicio de interrupción. 
Por eso se hace necesario modificar 
los punteros de la NMI de forma que 
apunten a una rutina propia ubicada 
en COAO. Tras hacer esto comienza la 
emisión propiamente dicha. En pri- 
mer lugar se envía el bit de inicio para 
lo cual se pone el volumen al máximo 
durante 40 - ms. A continuación se 
carga el acumulador con el carácter a 
transmitir y se va rotando para extraer 
los bits uno a uno. Si el bit extraído es 
un «1» se pone el volumen al máximo 
y si es un «0» se desactiva. El altavoz 
del televisor reproduce estas variacio- 
nes de forma más o menos correcta. El 
proceso se itera tantas veces como es 
necesario para transmitir la totalidad 
del mensaje. Al acabar se ajustan las 
interrupciones a los valores iniciales y 
se devuelve el control al sistema ope- 
rativo . 



LISTADO EN ENSAMBLADOR DEL 
PROGRAMA EMISOR {C 64) 



C000: 

C002: 

C005: 

C007: 

C00A: 

C00C: 

C00F: 

C012: 

C014: 

C017: 

C019: 

C01C: 

C01E; 

C021: 

C024: 

C026: 

C029: 

C02B: 

C02E: 

C030: 

C033: 

C035: 

C038: 

C03A: 

C03D: 

C03F: 

C042: 

C045: 



LDA # $45 
STA $D401 
LDA # $F0 
STA $D406 
LDA # $00 
STA $D405 
STA $D402 
LDA # $04 
STA $D403 
LDA # $41 
STA $D404 
LDA # $4E 
STA $DD04 
STA $DD05 
LDA # $01 
STA $DD06 
LDA # $00 
STA $DD07 
LDA # $11 
STA $DD0E 
LDA # $51 
STA $DD0F 
LDA # $A0 
STA $0318 
LDA # $C0 
STA $0319 
LDA $DD0D 
LDA # $82 



G047 
C04A 
C04C 
C04D 
C04E 
C051 
C052 
C054 
C056 
C058 
C05A 
C05D 
C05F 
C061 
C063 
C065 
C068 
C06A 
C06C 
C06F 
C070 
C071 
C072 
C074 
C076 
C079 
C07B 
C07D 
C07F 
C080 
C082 
C084 
C087 
C089 
C08B 
C08D 
C08E 
C08F 
C090 
C091 
C093 
C095 
C098 
C0A0 
C0A3 
C0A5 
C0A7 
C0AA 
C0AB 



STA $DD0D 
LDX # $00 
TXA 
PHA 

LDA $C300,X 
PHA 

LDY # $FF 
CPY # $00 
BNE $C054 
LDA # $0F 
STA $D418 
LDY # $FF 
CPY # $00 
BNE $C05F 
LDA # $00 
STA $D418 
LDX # $07 
LDA # $00 
STA $D418 
PLA 
ROR 
PHA 

BCC $C079 
LDA # $0F 
STA $D418 
LDY # $FF 
CPY # $00 
BNE $C07B 
DEX 

BNE $C06A 
LDA # $00 
STA $D418 
LDY # $FF 
CPY # $00 
BNE $C089 
PLA 
PLA 
TAX 
1NX 

CPX # $00 
BNE $C04C 
JSR $FDA3 
RTS 

LDA $DD0D 
AND # $02 
BNE $C0AA 
JMP $FE56 
INY 
RTI 



La versión en BASIC es la 
siguiente: 



1000 FOR l - 49152 TO 49304: 
READ A: POKE 1,A: NEXT 

1010 DATA 169,69,141,1,212, 
169,240,141,6,212,169, 
0,141,5,212,141,2,212, 
169,4 

1020 DATA 141,3,212,169,65, 
141,4,212,169,78,141,4, 
221,141,5,221,169,1, 
141,6 

1030 DATA 221,169,0,141,7, 
221,169,17,141,14,221, 
169,81,141,15,221,169, 
160,141 

1040 DATA 24,3,169,192,141, 
25,3,173,13,221,169, 
130,141,13,221,162,0, 
138,72,189 

1050 DATA 0,195,72,160,255, 
192,0,208,252,169,15, 
141,24,212,160,255, 
192,0,208 

1060 DATA 252,169,0,141,24, 
212,162,7,169,0,141,24, 
•212,104,106,72,144,5, 
169,15 

1070 DATA 141,24,212,160, 

255,192,0,208,252,202, 

208,232,169,0,141,24, 

212,160 
1080 DATA 255, 192, 0,208, 252,' 

104,104,170,232,224,0, 

208,183,32,163,253,96 
1090 FOR I - 49312 TO 49323: 

READ A: POKE l,A: NEXT 
1100 DATA 173,13,221,41,2, 

208,3,76,86,254,200,64 
2000 PRINT "MENSAJE"?: FOR I 

= 1 TO 1000: NEXT: L - 

0: PRINT"CLR" 
2010 GET A$: IF A$ = ""THEN 

2010 
2020 L = L + 1 
2030 IFA$ - CHR$ (20) 

THENM$= LEFT$ (M$,L- 

2): L - L-2: PRINT" 

(CLR)": A$ = "" 
2040 IFA$= "(F1)"THEN2100 
2050 M$ = M$+A$: 

PRINT"(HGME)"M$ 
2060 IFL-255THEN PRINT 

"ENVIO MENSAJE 
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":GOTO2100 

2070 GOTO2010 

2100 POKE 49298, L-l 

2110 FOR 1-1 TO L-l: 
POKE49920+I-1, 
ASC(MID$[M$,I,1]):NEXT 

2120 POKE 4992O + L-1.0 

2130 SYS 49152 

2140 END 

Para aquellos que utilicen ensam- 
blador sólo es necesario copiar a partir 
de la línea 2000. El programa pide el 
mensaje y lo va mostrando en panta- 
lla. Puede corregirse mediante la tecla 
DEL y para acabar debe oprimirse Fl. 
Si el mensaje contiene más de 256 ca- 
racteres comienza la emisión automá- 
ticamente y será necesario hacer 
RUN2000 para continuar la emisión 
del resto del mensaje. 

El programa receptor está descrito 
en su totalidad en código máquina y 
para su ejecución basta escribir SYS 
49408, una vez almacenado en me- 
moria mediante un ensamblador o el 
cargador BASIC. Tanto el programa 
emisor como el receptor pueden coe- 
xistir en memoria. De esta forma es 
posible establecer una comunicación 
en los dos sentidos. El programa re- 
ceptor funciona del siguiente modo: 
inicialmente espera que el valor de la 
posición 54297, que corresponde al 
conversor A/D, sea inferior a 129, lo 
que indica que se ha captado alguna 
señal. Para evitar que un posible ruido 
indeseado sea tomado como el bit de 
inicio se toman cuatro muestras más 
en instantes posteriores. Si en todas 
ellas se ha detectado señal se consi- 
dera que el bit de inicio ha sido reci- 
bido; en caso contrario se vuelve al 
bucle de espera. Una vez detectado 
éste se comienza a tomar muestras del 
tren de bits y se guardan en una tabla. 
Por cada bit se toman 32 muestras, por 
lo que entre muestra y muestra se de- 
berá esperar 1,25 ms. De esto se en- 
carga el bucle ubicado entre CHA y 
CHE. Aquí no es necesario usar el ti- 
mer porque al tratarse de transmisión 
asincrona, el bit de inicio desencadena 
todo el proceso. Una vez almacenados 
en la tabla todos los valores corres- 
pondientes a un carácter se procede a 



su identificación. Para ello se evalúa el 
valor más frecuente de las 32 muestras 
de cada bit, protegiéndose así el sis- 
tema contra posibles errores. Una vez 
identificado el código ASCII se llama 
a la subrutina E716 que lo imprime en 
pantalla. Si el carácter detectado ha 
sido el 00, se interpreta que la trans- 
misión ha concluido y se devuelve el 
control al sistema operativo. El carác- 
ter 00 ya lo introduce automática- 
mente el programa emisor. 

Para ejecutar una transmisión de 
datos debe procederse del siguiente 
modo: 

— Cargar los programas adecuados 

en cada ordenador. 
— Enchufar el controlador de voz al 

receptor. 

— Situar el micrófono del teléfono 
junto al altavoz del televisor se- 
leccionando un volumen medio 
para emitir. El receptor deberá si- 
tuar el auricular del teléfono 
junto al micrófono del controla- 
dor. 

— Emitir un mensaje de prueba 
preestablecido, por ejemplo en- 
viando reiteradamente la misma 
letra. 

— Ajustar el volumen del televisor y 
la distancia hasta el teléfono hasta 
conseguir una buena transmisión. 
— Emitir el mensaje deseado. 
Con un buen ajuste se han conse- 
guido tasas de error del orden del 
1 %. Si esta tasa es considerada de- 



masiado alta, descendiendo la veloci- 
dad de transmisión, puede rebajarse 
ostensiblemente. Se comprueba que el 
sistema es bastante insensible a los rui- 
dos propios del canal telefónico. 

La velocidad de transmisión se es- 
tablece en las siguientes posiciones de 
memoria: 

—para el emisor: en C01D, C025 y 
C02A. 

—para el receptor: en C10A y 
C11B. 

Debe tenerse presente, que en cual- 
quier caso, las velocidades de emisión 
y recepción deben ser iguales. 



LISTADO EN ENSAMBLADOR DEL 
PROGRAMA RECEPTOR (C 64) 



C100: LDA $D419 
C103: CMP # $81 
C105: BPL $C100 
C107: LDX # $04 
C109: LDY # $9B 
C10B: NOP 
C10C: DEY 
C10D: BNE $C10B 
C10F: CLC 
C110: ADC $D419 
C113: BCS $C100 
C115: DEX 
C116: BNE $C109 
C118: LDX # $00 
CHA: LDY # $99 
CUC: NOP 



INPUT 
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CI1D: 


DEY 


CHE: 


BN E $C1 1C 


C 1 2 : 


LDA SD419 


C123: 


STA $C2QG t X 


C126: 


INX 


C127: 


\ I = 


C128: 




C129: 


BNE $C1 1A 


ai nn 

C12B: 


LDA # $00 


312C 


STA SC3PP 


Al Q A 


c~r a cr ao M i 
o 1 A ibLoji) 1 


C133: 


LDX # $07 


r>i tí: 

Llob: 


LDY t yZy) 


C137: 


i r>A ff A A 1 A \ / 

LDA $C21C,Y 


C13A: 


CMP # $81 


L18L: 


dPL $L144 


CloL: 


1 M A CT" A Ó A A 

IINL $Loy)y) 


A 1 >1 1 

6141 : 


JMP $014/ 


C144: 


INC $C301 


C147: 


DEY 


Al A O 

C148: 


n m r AAi A7 

BNE $C137 


C14A: 


LDA $C30£) 


C14D: 


Ay n ^r*n/^ 1 

CMP $C301 


Clo0: 


PLA 


C151: 


ROR 


C152: 


PHA 


C153: 


LDA # $00 


C155: 


STA $C300 


C158: 


STA $C301 


C15B: 


LDA # $20 


C15D: 


CLC 


C15E; 


ADC $C138 


C161: 


STA $C138 


C164: 


DEX 


C165: 


BNE $C135 


r* i c i 
01b/: 


1 Pi A _u_ CP 1 A 

LDA # $10 


C169: 


STA $C138 


C16C: 


PLA 


C16D: 


CLC 


C16E: 


ROR 


C16F: 


PHA 


C170: 


CMP # $00 


C172: 


BEQ $C17A 


C174: 


JSR $E716 


C177: 


JMP $C100 


C17A: 


RTS 



La versión en BASIC es la que si- 
gue: 

1200 FOR 1=49408 T0 49530: 
READ A: POKE l,A: NEXT 
1210 DATA 173,25,212,201, 



129,16,249,162,4,160, 

155,234,136,208,252, 

24,109,25,212 

1220 DATA 176,234,202,208, 
241,162,0,160,153,234, 
136,208,252,173,25, 
212,157,0 

1230 DATA 194,232,234,234, 
208,239,169,0,141,0, 
195,141,1,195,162,7, 
160,32,185 

1240 DATA 28,194,201,129,16, 
6,238,0,195,76,71,193, 
238,1,195,136,208,237, 
173,0 

1250 DATA 195,205,1,195,104, 
106,72,169,0,141,0,195, 
141,1,195,169,32,24, 
109,56 

1260 DATA 193,141,56,193, 
202,208,206,169,28, 
141,56,193,104,24,106, 
72,201,0,240 

1270 DATA 6,32,22,231,76,0, 
193,96 



BARRA DE LEDS 

Otra aplicación interesante es utili- 
zar el controlador de voz como medi- 
dor de intensidad sonora, a modo de 
«sonómetro». Un ejemplo de ello es 
como medidor de la potencia musical 
de cualquier amplificador. El pro- 
grama desarrollado visualiza en la 
pantalla una doble barra de «leds», 
que se va iluminando al compás de la 
música o de la voz, del mismo modo 
que en los equipos musicales de cali- 
dad. El programa simula una columna 
doble de 20 LEDs, siendo los 5 últi- 
mos de color rojo y los restantes de co- 
lor verde. En este caso deberá ponerse 
el micrófono cerca del altavoz de la 
fuente de sonido. 

El programa se presenta también en 
ensamblador y con un cargador en 
BASIC. Para activarlo será necesario 
escribir la instrucción SYS 49152, y 
para detenerlo es necesario pulsar las 
teclas RUN/STOP y RESTORE. 

El programa comienza limpiando la 
pantalla y poniéndola en negro. A 
continuación se dibujan los LEDs, 



que vienen representados por el signo 
menos. Hecho esto comienza la eje- 
cución del programa principal, que se 
encarga de leer 20 veces el registro del 
conversor A/D y encender los LEDs 
en función de los datos leídos. 

Si la intensidad sonora es dema- 
siado fuerte la barra de LEDs marca 
siempre el valor máximo. En este caso 
es necesario separar el micrófono a 
una distancia conveniente para que las 
barras sigan correctamente la música. 

Existe la posibilidad de realizar un 
medidor para equipos estereofónicos 
mediante dos controladores, uno para 
cada canal, y conectando el segundo al 
PIN 5, correspondiente a la entrada 
POT Y (posición 54298). El programa 
debe sufrir algunas modificaciones 
sencillas para este modo de funciona- 
miento. 

PROGRAMA «BARRA DE LEDS» 
EN ENSAMBLADOR 



C000 
C003 
C005 
C007 
C00A 
C00D 
C00E 
C010 
C012 
C015 
C018 
C01A 
C01B 
C01C 
C01E 
C020 
C021 
C023 
C024 
C026 
C027 
C028 
C02B 
C02D 
C02F 
C032 
C033 
C035 
C038 



JSR $E544 
LDA # $2D 
LDX # $14 
STA $0400,X 
STA $0450, X 
DEX 

BNE $C007 
LDA # $00 
STA $D020 
STA $D021 
LDX # $14 
TXA 
PHA 

LDX # $02 
LDY # $A0 
DEY 

BNE $C020 
DEX 

BNE $C01E 

PLA 

TAX 

LDA $D419 
CMP * $81 
BPL $C032 
INC $C100 
DEX 

BNE $C01A 
LDX $C100 
LDY # $14 
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C03A 
C03C 
C03F 
C042 
C043 
C045 
C047 
C049 
C04B 
C04E 
C051 
C052 
C055 
C057 
C05A 
C05D 
C05E 
C060 
C062 
C065 



LDA 
STA 
STA 
DEY 
BNE 
LDA 
CPX 
BM1 
STA 
STA 
DEX 
JMP 
LDA 
STA 
STA 
DEX 
BNE 
LDA 
STA 
JMP 



# 

$D800,Y 
$D850,Y 

$C03C 

# $02 

# $0D 
$C055 
$D800,X 
$D850,X 

$C047 

# $05 
$D800 T X 
$D850,X 

$C057 

# $01 
$C100 
$C018 



La versión BASIC es la siguiente: 



20 



30 



40 



FOR 1=49152 TO 49255: 
READ A: POKE I , A: NEXT 
DATA 32,68,229,169,45, 
162,20,157,0,4,157,80,4, 
202,208,247,169,0,141,32, 
208 

DATA 141,33,208,162,20, 
138,72,162,2,160,160,136, 
208,253,202,208,248,104, 
170 

DATA 143,25,212,201,129, 
16,3,238,0,193,202,208, 



229,174,0,193,160,20,169, 


50 DATA 153,0,216,153,80, 
216,136,208,247,169,2, 
224,12,48,10,157,0,216, 
157,80 

60 DATA 216,202,76,71,192, 
169,5,157,0,216,157,80, 
216,202,208,247,169,1, 
141,0 

70 DATA 193,76,24,192 
80 SYS 49152 



OTRAS APLICACIONES 

Existe todavía otro grupo de impor- 
tantes aplicaciones para el controla- 
dor: es el control de programas me- 
diante la voz. Es posible gobernar un 
programa realizado adecuadamente 
pronunciando cualquier sonido ante el 
micrófono. Puede ser interesante este 
modo de control de programas para 
aquellas aplicaciones en las que, por el 
motivo que sea, no es posible mani- 
pular un teclado (ejemplo en progra- 
mas educativos en niños de corta 
edad). 

El método de programación consis- 
tirá en crear un menú rotativo que 
vaya presentando las diferentes opcio- 
nes o respuestas posibles en pantalla 
de forma secuencial. Al llegar a la ele- 
gida bastará con emitir nn sonido o 
una palabra cualquiera para que el or- 
denador reconozca la opción deseada. 



El programa siguiente es un ejem- 
plo de aplicación de esta técnica. En 
este caso se elige el color de la pan- 
talla, pero evidentemente la misma es- 
tructura puede utilizarse para ejecutar 
cualquier otra tarea. 

5 A=l 
10 PRINT"(CLR)" 
20 PRINT"AMARILLO": 

PRINT 
30 PRINTROJO": 

PRINT 
40 PR1NT"VERDE": 

PRINT 
50 PRINT"N EGRO" 
60 B=0:ON A GOTO 70, 80, 

90, 100 

70 PRINT 11 (HOME)" : PRINT"(RVS 
ON)AMARILLO":GOSUB150:A 
■ =2:GOTO110 
80 PRINT"{H0ME)(3CRSDWN) 
(RVSON)ROJO":GOSUB 
150:A=3:GOTO110 
90 PRINT"(H0ME)(5CRSDWN) 
(RVSON)VERDE":GOSUB 
150:A=4:GOTO110 
100 PRINT"(H0ME)(7CRSDWN) 
(RVSON)NEGRO":GOSUB 
150:A-1 
110 IFBO0THENON BGOSUB 

200,210,220,230 
120 GOTO10 

150 FORI = 1TO200:C = PEEK 
(54297):IFC<128 



Bit inicio 




Figura 3 



Bít parada 
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THEN1 = 200:B=A 
160 NEXT:RETURN 
200 POKE 53280, 7: POKE 

53281, 7:RETURN 
210 POKE 53280, 2: POKE 

53281, 2:RETURN 
220 POKE 53280, 5: POKE 

53281, 5:RETURN 
230 POKE 53280, 0: POKE 
53281, 0:RETURN 
Y todavía pueden encontrarse otras 
muchas aplicaciones. Damos a conti- 
nuación una serie de ejemplos: 
— Niñera electrónica: es posible po- 
ner el micrófono del controlador 
en el cuarto de un bebé de forma 
que cuando éste llore el Com- 
modore nos avise y le toque una 
canción de cuna. 
— Control de intrusos: cuando se 
detecte ruido en una habitación 
es posible utilizando el port del 
usuario conectar cualquier tipo de 



alarma o en una aplicación más 
sofisticada llamar a la policía y 
poner en marcha una grabación 
de forma automática. 
-Registro de llamadas telefónicas: 
Situando el micrófono cerca del 
teléfono es posible registrar el nú- 
mero de llamadas y la hora en que 
fueron efectuadas. 



-Encendido y apagado de apara- 
tos: Cualquier aparato puede ser 
conectado mediante un relé al 
port del usuario y ser conectado y 
desconectado mediante, por 
ejemplo, una palmada. La alta 
sensibilidad del dispositivo per- 
mite captarla desde varios metros 
de distancia. 




...TE CREES 
MUY VALIENTE? 

(91 } 733 72 63 



^^x^^xxx\^^x\^^^:^ 



Suscríbase ahora a 



PRECIO DE CUBIERTA PTAS. 375 

MENOS: 20 % de descuento al suscriptor Ptas, 75 

USTED PAGA SOLO PTAS. 300 (por ejemplar) 

SUSCRIPCION ANUAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas), USTED PAGA SOLO 3.600 Ptas 
(entrega a domicilio grató) 



INPUT le proporciona 

INFORMACION... DIVERSION... FORMACION, 
(un curso completo de programación)... 




commodore 



ó\o 



su 




...LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS... 



■ Estó siempre a\ día... 



Recorte y envíe este cupón 

de inmediato a ED1SA. López de Hoyos, 

28002 Madrid, o bien llámenos 

al Telf. (91) 415 97 12 



141 



/XXXXXXXXXXXXXX\VXXX\X\XXXXX\XXXX 



INPUT 



BOLETIN DE SUSCRIPCION 



SI, envíeme INPUT COMODORE durante 1 año (12 ejemplares], al precio especial de oferta de 3.600 Ptas. AHORRANDOME ¡ ¡ 
900 Ptas. sobre el precio normal de portada de 12 ejemplares sueltos. (Por favor, cumplimente este boletín con sus datos personales e i 
indiquen os con una (X) la forma de pago por usted elegida, métalo en un sobre y deposítelo en el buzón más próximo). 



-I l l I ,1 



_l l l l l l l_ 



_ -=ei_:c--f _ 



_l l l l l I l l_ 



DOMICIUO 1_ 
POBLACION L_ 



_J 1 I L_ 



_! I I NUM I i I I PÍSO 



_1 1 1 1 1 1_ 



PROVINCIA 1 1 I I 1 1 1 1 i 1 1 t [ L 



J COD. POSTAL l_ 
J TELF. i''' 



PROFESION I ! L_ 



FORMA DE PAGO ELEGIDA: Reamtmls 



z 



□ 



Muy señores míos: 

Les ruego que, con cargo a mi cuenta n.° 

Editorial PLANETA-AGOSTINI a nombre de 

J t 1 I I I I BANCO'C de AHORROS 

I 1 I I I I I I DIRECCION I L_ 



J I I I I I L 



_l I I 1 1 I i 

.de 19— 

atiendan, hasta nuevo aviso, el pago de los recibos que les presentará y 

J I i l l l l l l l l l I l l l l l I I I 1 I — l — l—l Á 

_l l l l I l l l L ,1. I ) l l l l l l l .1 .1 l — l—l — \—¡ y 

_i i i i i i i i i l i i i i i i l_l — i — j — i — i 1 1 — i — t / 

FIRMA 



TalGn nominativo que adjunto a favor ce EDISA □ 

INSTRUCCIONES DE DOMICILIAC10N B ANGARIA (si es elegida por usted) 



de. 
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En INPUT estamos convencidos de que aún 
puedes hacer muchas más cosas con tu 
ordenador. Sin duda, muchos lectores estaréis 
utilizando vuestro micro para funciones de lo más 
variadas, en unos casos; pintorescas, en otros; 
mientras que algunos listillos habrán podido 
utilizarlo para resolver tareas complejas. Es lógico, 
modificando programas y variando los periféricos 
nuestro ordenador puede prestar sus servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 
sus lectores y por eso ha organizado el «Concurso 
de Aplicaciones y Utilidades», en el que puede 
participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefacción de tu casa, gobierna 
un robot, dirige un pequeño negocio, organiza la 
maqueta de tu tren eléctrico, o cualquier cosa in- 
teresante u original; envíanos información gráfica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive. 

Todo ello habrá de venir acompañado por un 
texto que aclare cuál es su objetivo, el modo de fun- 
cionamiento y una explicación del cometido que 
cumplen las distintas rutinas que lo componen. El 
texto se presentará en papel de tamaño folio y me- 
canografiado a dos espacios. No importa que la re- 
dacción no sea muy clara y cuidada; nuestro equipo 
de expertos se encargará de proporcionarle la forma 
más atractiva posible. 

UN JURADO propio decidirá en cada momento 
qué colaboraciones reúnen los requisitos adecuados 
para su publicación, y evaluará la cuantía del pre- 
mio en metálico al que se hagan acreedoras. 

No olvidéis indicar claramente para qué ordena- 
dor está preparado el material, así como vuestro 



nombre y dirección y, cuando sea posible, un telé- 
fono de contacto. Entre todos los trabajos recibidos 
durante los próximos tres meses SORTEARE- 
MOS: 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en material microinformático a elegir por 
los afortunados. 

¡No os desaniméis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas están re- 
visadas con el máximo interés. 

INPUT C0MM0D0RE 

Aribau, 185. Planta 1. a 
08021 BARCELONA 



NOTA: INPUT no se responsabiliza de la devolución del ma- 
terial que no vaya acompañado por un sobre adecuado con el 
.franqueo correspondiente. 



I t 
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AZAR Y 
PROBABILIDAD 



Tanto si estás interesado en estrate- 
gias de juego como en predecir situacio- 
nes de vida o de muerte, no puedes es- 
perarlo todo del azar. Analiza más bien 
cómo puedes obtener información sobre 
el futuro, ¡y gana! 

La fuerza de un ordenador reside en 
su capacidad para obedecer instruccio- 
nes de una forma repetitiva, precisa y 
rápida. Si lo comparamos con el pro- 
ceso casi instantáneo del cerebro hu- 
mano, la actuación de un ordenador 
es, desde luego, insignificante. El ce- 
rebro humano es único para hacer jui- 
cios y comparaciones de parámetros 
como la distancia, la velocidad o la in- 
tensidad de la luz. 

Pero también estas funciones más 
sutiles fallan estrepitosamente cuando 
tratan de adivinar el resultado de un 
suceso. Y, sin embargo, es importante 
poder afirmar con segundad que «a 
efectos de un seguro, se considera que 
una persona llega a vivir hasta los 65 
o los 70 años», o bien que «no es pro- 
bable que se dé un terremoto de gran 
alcance en España en lo que queda de 
siglo». Tales afirmaciones son nor- 
males en el lenguaje de la vida diaria 



(ponderamos el riesgo) y son también 
importantes para fines científicos, so- 
ciales o comerciales. Cuando utiliza- 
mos términos como riesgo, pronóstico, 
duda, esperanza y posibilidad estamos 
haciendo cálculos mentales de proba- 
bilidades. 



LA PROBABILIDAD TAL COMO ES 



cálculo de probabilidades. Pronosti- 
can, y basta. Pero tú puedes hacerte 
una idea más precisa de ciertas situa- 
ciones en las que interviene el azar si 
te detienes a examinar cuáles son los 
sucesos posibles, y aunque nunca ten- 
drás la certeza absoluta estarás en me- 
jores condiciones que el que emite su 
pronóstico poco o nada documentado 
sobre el tema. 



La probabilidad es la medida cien- 
tífica del azar, y se emplea para juzgar 
el posible resultado de un suceso. Se 
basa en la existencia de un número fi- 
nito de resultados posibles, como pue- 
den darse en los partidos de fútbol, el 
lanzamiento de una moneda, tirada de 
dados, reparto de cartas de baraja o el 
juego de las máquinas de frutas. Es 
claro que podemos medir o cuantificar 
los resultados, de forma que sucesos 
como las carreras de caballos o una 
competición de baloncesto constitu- 
yen la materia difícil de la probabili- 
dad. Si tú dices «Espero ganar», lo que 
estás diciendo es que existe una ele- 
vada probabilidad de que te sonría la 
suerte . 

Muchos se fían sólo de la intuición, 
y ésta es su principal herramienta de 



PROBABILIDAD E INFORMATICA 



¿Y qué tienen en común la proba- 
bilidad y la informática? Pues, ha- 
blando en castizo, la tira. Aunque el 
tipo de probabilidad antes mencio- 
nada es bastante amplia y depende de 
muchos factores, es posible deducir 
reglas matemáticas para ciertos tipos 
de sucesos que nos permitan predecir 
el resultado más verosímil con un 
cierto margen de seguridad. 

Los ordenadores pueden ser útiles 
por dos vertientes. Por un lado, pue- 
den utilizarse para simular el resultado 
mismo; es mucho más fácil programar 
un ordenador para que te tire un dado 
dos mil veces que hacerlo tú con tu 
propia mano. Por otro lado, si sabes 
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/ Programación 



■ 


¿QUE ES PROBABILIDAD? 


■ 


PROBABILIDAD 


■ 


AZAR, PROBABILIDAD 




DE VARIOS RESULTADOS 




Y FRECUENCIA 


■ 


TRIANGULO DE PASCAL 


■ 


PROGRAMA PARA LANZAR 


■ 


DISTRIBUCION DE FRECUENCIAS 




UNA MONEDA 


■ 


PREDICCION DE RESULTADOS 



las fórmulas del resultado esperado, 
puedes emplear el ordenador para que 
te calcule también el resultado. 

Según sean tus intereses, esto puede 
reducirse a un mero ejercicio teórico, 
o convertirse en la base de muchas 
aplicaciones prácticas. Considera sólo 
el mundo de los juegos de azar, en los 
que, por ejemplo, tu apuesta depende 
de la verosimilitud de determinados 
resultados. Pero también se podría es- 
cribir un programa para determinar la 
probabilidad de que llueva en un día 
determinado (¡o la probabilidad de 
que acontezca una erupción volcánica 
en la península!). De momento ciñá- 
monos a la teoría. Más adelante IN- 
PUT te enseñará a montar algunas de 
esas aplicaciones prácticas. 



MEDIR LA PROBABILIDAD 



La teoría de la medición de la pro- 
babilidad pide que conozcas de ante- 
mano el número de sucesos posibles 
de un determinado experimento, y la 
frecuencia con que suele ocurrir cada 
uno de ellos. La probabilidad de que 
ocurra un determinado suceso es igual 
al número de veces que suele suceder 



(su frecuencia) partido por el número 
total de sucesos posibles. 

Si un suceso es seguro que ocurrirá, 
su probabilidad será, según lo dicho, 
igual a 1. Está claro que si siempre 
ocurre, su frecuencia es igual al nú- 
mero de resultados posibles, es decir, 
dividimos un número por sí mismo, 
luego es igual a 1. Conclusión: la pro- 
babilidad más alta de un suceso vale 
1. Y para muchos sucesos posibles e 
independientes, si sumamos sus res- 
pectivas probabilidades nos dará tam- 
bién 1. 

Uno de los métodos más sencillos y 
antiguos de razonamiento probabilís- 
tico consistía en lanzar una moneda al 
aire y predecir su resultado. Dado que 
una moneda sólo ofrece dos resulta- 
dos, intuitivamente podemos deducir 
que si la lanzamos al aire un buen nú- 
mero de veces, obtendremos cara la 
mitad de las veces y cruz la otra mitad, 
dando por despreciable la bajísima 
probabilidad de que la moneda se 
quede de canto. Para ilustrar este mé- 
todo, introduce y ejecuta este primer 
programa. 

Necesitas el cartucho BASIC de Si- 
món para tu Commodore 64. 



10 PRINT "[SHIFT+CLR/ 

H0ME][CTRL+ 7] ENTRAR 

OPCION (1-4)" 
20 POKE 53280, 3:P0KE 

53281, 1 
30 INPUT X:PRINT "SHIFT+CLR/ 

HÜME]":IFX<1 OR X>4 

TH EN 10 
40 ON XGOTO 70; 70, 180; 460 
50 REM... .PROBABILIDAD 
60 REM...... LANZAMIENTO DE 

UNA MONEDA 
70 H=0:T=0 

80 PRINT "[CLR/ HOME] [CTRL 
+ 9[ PULSA -ESPACIO- PARA 
LANZAR LA MONEDA. " 

90 PRINT "[CLR/HOMEH 

4*CRSR ABAJOJCARA :- 0" 
:PRINT "CRUZ :-0" 

100 GET A$:IF A$<>" " 
THEN100 

110 IFX=2 THENFOR N = l TO 
100 

120 IF INT (RND(1)*2)+1 = 1 

THENH = H + 1:PRINT "[CLR/ 
HOME][ 2*CRSR 
ABAJ0][CTRL+9]CARA 
":G0T0 130 




125 



130 



140 

150 
160 



T = T+1: PRINT "[CLR/ 
HOME][ 2*CRSR 
ABAJ0][CTRL+9]CRU2 " 
PRINT "[CLR/HOME][ 
4*CRSR ABAJO]"; TAB(7); 
H:PRI NT TAB(7); T 
IF X=l THENGET A$:IF 
A$<l>" " THEN130 
IF X=l THEN120 
NEXT N:END 



Este programa será desarrollado a 
lo largo del artículo. Cuando lo eje- 
cutes (RUN) tendrás que introducir 
un número para seleccionar una 
prueba. En este momento sólo has en- 
trado la primera de las pruebas, luego 
escribe un 1; estás ahora en condicio- 
nes de lanzar la moneda apretando la 
barra espacíadora o SPACE, La esen- 
cia del programa está en la línea 120 
que proporciona unos (caras) y ceros 
(cruces) al azar. Cuando sale cara, la 
línea 120 imprime cara, y cuando sale 
cruz la línea 125 imprime (PRINT) 
cruz. Esta misma línea tiene un con- 
tador del número de caras y cruces 
que van saliendo en los distintos lan- 
zamientos. 

Con un número escaso de lanza- 
mientos obtendremos valores muy dis- 
tintos de cara y de cruz, pero si au- 
mentamos éstos veremos cómo tales 
valores se van aproximando cada vez 
más, hasta distribuirse por igual la mi- 
tad de los lanzamientos: o sea, el 50 % 



de las veces salió cara y el 50 %, cruz. 
Compruébalo ejecutando el programa 
después de haber entrado el 2, para 
seleccionar la segunda prueba. Esta 
vez, cuando aprietes la barra o 
SPACE, la línea 110 establece un bu- 
cle con el que se lanzará 100 veces la 
moneda. Verás que en pantalla sale 
para CARA y para CRUZ un número 
muy próximo a 50. Si quieres, cambia 
el 100 de la línea 110 por el 1000 y 
vuelve a ejecutar el programa, intro- 
duciendo como antes el número 2 para 
que repita la segunda prueba. Resul- 
tado: CARA y CRUZ reciben casi 500 
por igual. 

Desde luego, es posible obtener 
cara en todos los lanzamientos, nadie 
puede negar esto, pero es probable 
obtener cara sólo en la mitad de di- 
chos lanzamientos. Anótate esto bien 
cuando examines más de un experi- 
mento. Mucha gente cree que si se- 
guimos lanzando una moneda después 
de haber obtenido diez caras, es ma- 
yor la probabilidad de obtener cruz 
ahora que al principio. Pero esto no es 
verdad. Los sucesos pasados no influ- 
yen sobre el suceso futuro de obtener 
una cruz o una cara en el siguiente lan- 
zamiento. Pero si vas a lanzar 11 mo- 
nedas de golpe, deberás saber que la 
probabilidad de obtener 11 caras es 
más pequeña que la de obtener diez 
caras y una cruz, y es todavía más pro- 
bable que obtengas un número casi 
igual de caras que de cruces. 




EXPERIMENTOS MULTIPLES 

Cuando existen varios experimen- 
tos, es necesaria alguna información 
más para poder predecir la probabili- 
dad de cada suceso. Un dato infor- 
mativo esencial es el total de todos los 
sucesos posibles. Por ejemplo, si lan- 
zas dos veces una moneda, tres son los 
sucesos posibles: dos caras, cara y 
cruz, dos cruces. Podemos pensar que 
cada uno de estos sucesos puede ocu- 
rrir la tercera parte de las veces. De 
hecho, las probabilidades son: dos ca- 
ras (1/4), dos cruces (1/4) y cara y cruz 
(1/2). Para entender esta última pro- 
babilidad de 1/2 deberás utilizar otra 
información más: el número de ocu- 
rrencias de cada suceso. Cara y cruz 
ocurre dos veces, ya que hay dos ma- 
neras de obtener este resultado (cara 
y cruz, o bien cruz y cara) con lo que 
tenemos un total de cuatro sucesos, de 
los cuales tres son distintos. 

En la práctica, hay dos trucos ma- 
temáticos que te ahorran el esfuerzo 
de determinar el número de sucesos. 
Son el teorema del binomio y el trián- 
gulo de Pascal. Binomio significa «de 
dos términos». Si un experimento sólo 
tiene dos sucesos posibles y conoces la 
probabilidad de cada uno de ellos, nos 
serviremos del teorema del binomio 
para obtener las probabilidades. 

El teorema del binomio nos indica 
lo que se debe esperar de ías pruebas 
que se repiten de un experimento con 
dos sucesos. Llamemos P la probabi- 
lidad de un resultado y Q la del otro 
resultado (nota que P + Q vale 1, 
como ya sabes). Y llamemos, por úl- 
timo, N al número de sucesos. 

En el ejemplo de lanzar una mo- 
neda, P es la probabilidad de que salga 
cara, y Q de que salga cruz. Entonces, 
para un lanzamiento, P y Q valen 1/2. 
Según el teorema del binomio, la pro- 
babilidad en un experimento que se da 
dos veces, es la probabilidad cuando el 
experimento sólo se da una vez mul- 
tiplicada por sí misma. En general, la 
regla dice que la probabilidad hay que 
elevarla a N. Así para dos caras en dos 
lanzamientos tendremos P f N = 1/2* 
1/2 = 1/4. Hay una posibilidad sobre 
cuatro de obtener dos caras a la vez. 
Igualmente, la probabilidad de obte- 
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ner cinco caras a la vez, será P | N, o 
sea 1/2^5, es decir, 1/32. 

Como verás más adelante, este mé- 
todo se puede emplear para calcular la 
probabilidad de cualquier suceso 
cuando sólo existen dos resultados po- 
sibles, los sucesos sí/no o bien cara/ 
cruz. Pero ¿y e) caso de obtener tres 
caras y dos cruces después de cinco 
lanzamientos de una sola moneda? 
Para responder a esto necesitamos un 
planteamiento más complejo. 

El triángulo de números, ideado por 
el matemático francés Blas Pascal, 
sirve en muchas aplicaciones mate- 
máticas, y entre ellas la que nos 
ocupa. Ofrece todos los resultados po- 
sibles de cualquier experimento con 
dos resultados, y puede ser dispuesto 
como una sucesión de filas de núme- 
ros. Las primeras siete filas son: 

Fila 1 
Fila í 1 1 

Fila 2 1 2 1 

Fila 3 13 3 1 

Fila 4 1 4 6 4 1 
Fila 5 1 5 10 10 5 1 
Fila 6 1 6 15 20 15 6 1 

Para construir un triángulo como 
éste, escribe primero las dos primeras 
filas (fila y fila 1), que son fáciles de 
recordar. La fila 2 comienza con un 1 
a la izquierda y acaba con otro 1 a la 
derecha de la fila 1. El número del me- 
dio (2) se obtiene sumando los nú- 
meros de la fila anterior (1 + 1), 
Igualmente, la fila 3 se obtiene colo- 
cando sendos unos a la derecha y a la 
izquierda, y los restantes números son 
la suma de los números de la fila an- 
terior (fila 2): 1 + 2 y 2 + 1. Así se 
han obtenido las demás filas, como la 
fila 6:1 — 1 + 5 — 5 + 10 — 10 + 10 
— 10 + 5 — 5 + 1 — 1. Y así podrías 
enriquecer este triángulo con todas las 
filas que desees, aunque el triángulo te 
ocupará entonces mucho espacio. 

El triángulo de Pascal (también lla- 
mado de Tartaglia), te ofrece la infor- 
mación que necesitas, cuando se trata 
del lanzamiento de varias monedas al 
mismo tiempo (o de una moneda que 
se lanza varias veces). El número de 
monedas nos dice la fila que hay que 
inspeccionar; el número de elementos 




de esa fila indica el número de resul- 
tados. Por ejemplo, sólo hay dos re- 
sultados para una sola moneda (fila 1: 
el 1 y el 1) y siete resultados posibles 
para seis monedas (fila 6: 1, 6, 15, 20, 
15, 6 y 1). La suma de los números de 
la fila proporciona el número total de 
resultados (2 para una moneda, 4 para 
dos monedas, etc.). Cada número de 
la fila es una probabilidad. Por ejem- 
plo, en la fila 2, el primer número (1) 
es la probabilidad de obtener dos ca- 
ras, el segundo número (2) es la de 
cara y cruz, y el tercer número (1) es 
la de dos cruces. Naturalmente estos 
números nos dan la frecuencia que hay 
que dividir por el número total de re- 
sultados posibles (en nuestro caso, 
cuatro) si queremos hallar la proba- 
bilidad propiamente dicha. Observa 
cómo el resultado de sumar los nú- 



meros de cada fila da siempre una po- 
tencia del dos (1, 2, 4, 8, 16). Esto se 
explica porque, para cualquier expe- 
rimento, sólo existen dos sucesos po- 
sibles. 

Ya puedes ir percatándote de lo útil 
que resulta este método cuando se 
trata de calcular las probabilidades re- 
sultantes de lanzar, por ejemplo, 30 
monedas al aire, pero sería algo abu- 
rrido intentar resolverlo mediante la 
construcción de un triángulo de 30 fi- 
las, aparte del espacio que esto te iba 
a ocupar. Existe, en su lugar, un mé- 
todo gráfico que nos permite encarar 
tales casos, y aquí es donde puedes ha- 
cer intervenir a tu ordenador. 
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CURVAS DE DISTRIBUCION 

Coando existen muchos sucesos, y 
probabilidades no parecen tan evi- 
ir-:es. a menudo pueden obtenerse 
róenos resultados mediante el trazado 
dé una curva de distribución. Esta se 
■.r^za mediante la frecuencia de los su- 
cesos que se tengan tabulados: es la 
distribución de frecuencias. Como su- 
cede con todo método gráfico, de un 
vistazo puede obtenerse la mayor 
parte de la información necesaria. Si, 
por ejemplo, vas a jugar al lanza- 
miento de una moneda 30 veces (que 
es lo mismo que lanzar 30 monedas de 
una sola vez) , puedes visualizar el nú- 
mero de caras (o cruces) que salen en 
cada juego de 30 lanzamientos. Para 
ver el resultado, escribe la siguiente 
sección del programa, sin borrar la an- 
terior sección: 

170 REM... ...MAXIMOS 

ALEATORIOS 
180 HIRES 0,1:FOR X=0 TO 

300 STEP20 
190 GM = 0:GOSUB 610 
200 FOR Y = TO H*6 

STEP6 

210 TEXT X, 200-Y, "*", 1, 
1,8 

220 N EXT Y, X 
230 GOTO 230 
610 REM. ..-..LANZAMIENTO 

620 H-0:T=0 

630 TEXT 200, 10, "CARA:", 1, 
1,8 



632 TEXT 200,20, "CRUZ :",1, 
U 

640 IF GMO0 THENTEXT 0,0, 
"JUEGOS:", 1,1, 8:TEXT 
100, 0, "CARAS DE 30 






JUEGOS-", 1,1,8 
650 FOR TS = 1 TO 30 
660 IF INT <RND{1)*2)+1 = 1 

THENH = H + 1:G0T0 670 
665 T=T+1 

670 TEXT 263,10, STR$(H), 1,1, 
8 

672 TEXT 263,20,STR$(T),1, 
1,8 

674 TEXT 263,10, STR$(H), 0,1, 
8 

676 TEXT 263; 20, STR$(T), 0, 

1, 8 
678 NEXTTS 
680 RETURN 



Ejecuta el programa, entrando 
ahora el 3 para seleccionar la tercera 
prueba. Verás un gráfico con una su- 
cesión de puntos que ascienden hasta 
varios puntos elevados sobre la pan- 
talla. Ésta es una de las muchas figuras 
posibles en este tipo de análisis. Los 
puntos elevados son el número de ca- 
ras que se obtienen de 30 lanzamien- 
tos y se trazan a lo largo del eje Y, 
extendidas a lo largo del eje X. Ob- 
serva que hay más cumbres altas que 
bajas. La razón de esto es que hay más 
probabilidad de obtener 15, o bien en- 
tre 12 y 17 caras es mucho más elevada 
que la de obtener un número menor o 
mayor de caras. Esto mismo es lo que 
puede verse en los números del trián- 
gulo de Pascal, con valores mayores 
justo para los números de en medio. 

La línea 180 establece un bucle para 
extender los puntos elevados a lo largo 
del eje X. La variable GM se inicializa 
a cero y señala el número de juegos de 
30 lanzamientos (línea 190) y se llama 
a una rutina (líneas 610 a 680) donde 
se realiza cada juego de 30 lanzamien- 
tos. Esta rutina emplea los elementos 
de la segunda prueba, pero lanza la 
moneda «electrónica» 30 veces, en lu- 
gar de 100. Cuando ejecutes este pro- 
grama verás que las letras CARA y 
CRUZ aparecen en la esquina supe- 
rior derecha de la pantalla. Una vez 
realizados los 30 lanzamientos, el nú- 
mero de caras que se acumulan en la 
rutina se someten a una escala en la 
línea 200 y se trazan (PLOT) en la lí- 
nea 210 como coordenadas de Y. Para 
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sacar todo el jugo de este estudio, pre- 
cisas ordenar la información de modo 
que obtengas una de las más conocidas 
curvas estadísticas: la de distribución 
normal. Escribe estas pocas líneas y 
verás la curva de que te hablamos: 

450 REM. DISTRIBUCION 

NORMAL 
460 HIRES 0,1:D¡M G(30) 
470 LINE 0,0,0,200, hLINE 0, 

200,320,200,1 
480 GOSUB 560 
485 GET A$:IF A$<>" " 

THEN485 
490 END 
560 REM GR 

565 DEF FIM N(X)=1/(EXEC 

*1. 4142*2. 718 f ((X t2)/2)) 

570 FOR X=l TO 320 

580 PL0TX,199-(FN N ((X-160)/ 
24)*530),1 

590 NEXT X:RETURN 

Ejecuta el programa y entra un 4 
para ver una curva ideal del tipo dis- 
tribución normal. La línea 460 da di- 
mensión a una tabla, necesaria más 
adelante para guardar en ella la cuenta 
de caras obtenidas. La línea 470 di- 
buja dos ejes de coordenadas X-Y, y 
la línea 480 llama a una rutina para 
que dibuje la curva. Este rutina em- 
plea una función matemática (línea 
580) para dibujaría, lo cual explica su 
forma ideal: une todos los puntos para 
obtener una curva bien alisada. La 
función está definida en la línea 560. 
No pulses todavía ninguna tecla, pues 
la rutina está incompleta y te dará 
error. 

Muy rara vez puede obtenerse una 
curva perfecta al representar la infor- 
mación de los datos disponibles. Esto 
es de esperar, pues estás tratando pro- 
babilidades, no certezas. La probabi- 
lidad de un suceso (como, por ejem- 
plo, la de tener lluvias torrenciales du- 
rante el período monzónico en la In- 
dia) es elevada, pero han existido pe- 
ríodos en que lo que se ha dado es 
sequía en lugar del esperado diluvio. 
La siguiente prueba ilustra perfecta- 
mente este punto. Lo que hace es re- 
petir el experimento un buen número 
de veces y representar gráficamente 



los resultados. Escribe la segunda 
parte de nuestra cuarta prueba: 

490 FOR GM=-1 TO 200 

500 GOSUB 610 

502 TEXT 50, 0,STR$(G1),0, 1 ,8 

504 TEXT 263,0, STR$(G2),0, 1,8 

510 G(H)=G(H)+1 

520 PLOT H*10+10,200- 

G(H)*4,1 
530 TEXT 50,0 ; STR$(GM),1,1, 

8:G1=GM 
532 TEXT 263,0,STR$(H),1,1, 

8:G2 = H 
540 N EXT G M 
550 GOTO 550 

Ejecuta ahora la cuarta prueba de 
nuevo. Una vez dibujada la curva 
ideal, pulsa la barra espaciadora o 
SPACE para iniciar el lanzamiento. 
Observa ahora la serie de puntos que 
va «creciendo» hasta llenar el espacio 
dentro de la curva. Cuando se com- 
pleta la prueba, se habrán dibujado 
200 puntos (PLOT de la línea 490) . En 
algunos micros, y el Commodore 64 es 
uno de ellos, el tiempo que se invierte 
en este experimento es de varios mi- 
nutos. Ésta es la razón por la que se 
ha escogido este número de 200 en lu- 
gar de otro más alto, como el 500 en 
la línea 490. 



Esta parte del programa llama a la 
rutina (línea 500) que lanza la moneda 
300 veces de modo que, al igual que 
sucedía en la tercera prueba, los lan- 
zamientos son iluminados en la parte 
superior derecha de la pantalla. Cada 
serie de 30 lanzamientos es un juego, 
y puede dar un número cualquiera de 
caras entre y 30. 

Mediante la tabla, la línea 510 
guarda la cuenta de los resultados de 
cada juego. Por ejemplo, cada vez que 
el resultado de un juego es 11 caras, 
la casilla G (11) se incrementa en una 
unidad, y lo mismo pasa con la G (15) 
si el resultado fue de 15 caras. Al ini- 
cio todas las casillas están a 0. 

Tras cada juego, la línea 520 somete 
a escala el valor de cara (el número de 
caras en 30 lanzamientos) para obte- 
ner las coordenadas X e Y. La si- 
guiente vez que sucede el mismo re- 
sultado se traza un punto en la misma 
posición de X, pero una unidad más 
adelante en el eje de Y. La línea 530 
guarda la cuenta de H para cada 
juego, y también la cuenta del número 
de juegos efectuados. 

EMPLEO DE LA CURVA 

Ejecuta la cuarta prueba unas cuan- 
tas veces para ver cómo varía el perfil 
de los puntos dentro de la curva, y 




después haz lo mismo pero con valores 
finales de GM más pequeños (línea 
490). Aun sin la curva ideal, pronto 
podrás imaginar una curva idealizada 
a través de los puntos elevados. En la 
práctica, sin embargo, ía inversa de 
este proceso imaginario es lo que re- 
sulta de un inmenso valor: sabiendo el 
perfil de una curva, predecir los re- 
sultados de un experimento futuro. 

El valor de cara en un punto central 
es de especial interés. Es la denomi- 
nada media matemática , de los 31 va- 
lores cara posibles a lo largo del eje X. 
En este caso, es 15. La media se iden- 
tifica con el punto máximo de la curva. 
Es el valor con mayor probabilidad, 
pero no es útil por sí mismo. Se puede 
decir que 15 es lo más probable, pero 
también diremos que 14 y 16 son casi 
tan probables. Hay varios valores co- 
munes en torno al máximo, y esto sí 
que es útil: saber su grado de disper- 
sión. Por tanto, la media se utiliza 
para especificar otro parámetro de vi- 
tal importancia: la desviación típica, o 
la medida de la dispersión. La fórmula 
de la desviación típica es complicada, 
pero no sin razón. Una vez calculado 
este parámetro, puedes asignar pro- 
babilidades a todos los puntos de la 
curva. 

La desviación típica es una medida 
de la variación de los valores a ambos 
lados de la media. Por ejemplo, una 
sección de la curva con una desviación 
de 1,96 en cada lado de la media in- 
cluirá el 95 % de los resultados. Si am- 
plías la variación típica a 2,58 la curva 
incluirá el 99 % de los resultados. Si 



empleas un software de estadísticas 
comerciales, la obtención de la desvia- 
ción típica es superfácil. 



UN CASO CON SEIS SUCESOS 

Hay muchos ejemplos de experi- 
mentos que tienen más de dos sucesos 
posibles, cosa que no ocurría en el lan- 
zamiento sencillo de una moneda. En 
estos casos, determinar la probabili- 
dad de un suceso no es tan fácil, ni se 
soluciona recurriendo a la respectiva 
fila del triángulo de Pascal. Por ejem- 
plo, en el caso de un dado, al tirarlo 
puedes obtener seis posibles resulta- 
dos. Si el dado no está cargado, los 
seis resultados tienen la misma pro- 
babilidad. ¿Y los posibles resultados 
de tirar dos dados? Se pueden enu- 
merar mediante una tabla, pero siem- 
pre has de notar que cuantos más re- 
sultados posibles haya más complicada 
es la tarea de determinarlos. 

He aquí una tabla de todos los re- 
sultados posibles al tirar un par de da- 
dos a la vez: 





Valor del primer dado 
1 2 3 4 5 6 


1 

Valor 2 
del 3 
segundo 4 
dado 5 

6 


2 3 4 5 6 7 

3 4 5 6 7 8 

4 5 6 7 8 9 

5 6 7 8 9 10 

6 7 8 9 10 11 

7 8 9 10 11 12 



Como puedes ver, hay 36 posibles 
resultados (seis filas por seis colum- 



nas) aunque sólo 11 son diferentes. 
Pero hay más cosas que se deducen de 
esta tabla. Sólo hay una posibilidad 
contra 36 de obtener la suma más baja 
o la suma más alta (2 y 12 sólo apa- 
recen en la tabla una vez), mientras 
que hay seis posibilidades contra 36 (o 
sea 1/6) de obtener 7 de suma. Y hay 
también 6 posibilidades contra 36 de 
obtener un doble. Es lo que ofrece la 
diagonal que va desde el número 2 
(doble de doses) hasta 12 (doble de 
seises). 



TIRADA MULTIPLE DE DADOS 

Combinando el teorema binomial y 
esta tabla, puedes calcular las proba- 
bilidades de muchos experimentos. 
Un buen ejemplo de tirada múltiple 
de dados se encuentra en el juego del 
Monopoly. Si caes en la cárcel, tienes 
tres oportunidades para obtener un 
doble, de lo contrarío has de pagar 
una fianza. Intuitivamente parecería 
que tienes un 50 % de probabilidades 
de salir de la cárcel (3 tiradas, con un 
1/6 de probabilidad cada vez), pero no 
es así. En la -tabla puedes ver que la 
probabilidad de que no obtengas un 
doble en cada tirada es de 30/36 (5/6). 
Con el teorema del binomio, puedes 
ver que la posibilidad de no obtener 
un doble las tres veces juntas es 5/6 
elevado a 3, o sea 125/216. Lo que da 
alrededor de un 58 % de posibilidad 
de fracaso, por tanto si tu dinero te lo 
permite, mejor que no tientes a la 
mala suerte y pagues la fianza para li- 
brarte de la cárcel. 
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En el sorteo correspondiente al número 19 entre quienes escribisteis mandando vuestros votos a LOS 
MEJORES DE INPUT han resultado ganadores: 



NOMBRE 



LOCALIDAD 



JUEGO ELEGIDO 



Carlos Santolaya García 
J. Ignacio Luengo Crespo 
Jesús Losada Prieto 
David Tibau Llinas 
Andrés López Pascual 
Gabriel Maldonado Suárez 
Hilario García Ostos 
Santiago Delgado Llopis 
Mariano Alcázar Cano 
Rubén Rodríguez de Torres 



Sta. M. a de Monteada (Barcelona) 

Alcorcón (Madrid) 

Benavente (Zamora) 

Lloret de Mar (Girona) 

San Juan (Alicante) 

Almería 

Peñarroya (Córdoba) 
Madrid 

Elche (Alicante) 
Vigo (Pontevedra) 



GAUNTLET 
WORLD GAMES 
DAN DARE 
ASTERIX 
EL NINJA 
TW0 0N TW0 
TW0 0N TW0 
EXPRESS RAÍDER 
MARBLE MADNESS 
LCP 
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Software 




SOFTACTUALIDAD 



IIMDOOR SPORTS 

El juego que os comentamos es un 
simulador; pero no de vuelo, se trata de 
una simulación de deportes de sala 
como los bolos, los dardos o el criquet. 

Posiblemente, si este juego se 
hubiese producido en nuestro país 
simularía otro tipo de juegos que tienen 
muchos más seguidores que los que 
aquí comentamos. 

La elección del deporte de sala que 
quieres practicar se efectúa de forma 
muy original. Los gráficos son 
simpáticos y cuentan con una buena 
animación. Por ejemplo, al jugar a los 
bolos la escena se divide en dos partes, 
una, la primera, en la que elegimos la 
trayectoria y el ángulo de tiro y, otra, la 
segunda, en la que presencias el 
impacto sobre los bolos. 



LEADER BOARD II 

El éxito alcanzado por las diferentes 
versiones de este juego en los distintos 
sistemas ha convencido a ACCESS de 
ta necesidad de realizar un remake de 
su celebérrimo juego de golf. 

Sin embargo, no se trata de una 
simple adaptación del anterior pues, 
respecto al anterior, incluye incontables 



e interesantes mejoras. Desde la 
posibilidad de cambiar los hoyos, los 
recorridos e, incluso, el paisaje, incluso 
se aprecia como los árboles impiden la 



perfecta visión del recorrido de la 
pelota, lo que le da una proximidad con 
el juego real muy interesante. 

Los campos también incoiporan 
auténticos bunkers. Caso de que tus 
pelotas caigan en ellos, vas a pasarlo 
bastante mal hasta que consigas salir. 

Además de estos detalles también 
destacan la posibilidad de graduar la 
fuerza con la que golpear la pelota, o 
los cambios de trayectoria de la pelota 
según cuales sean las características de 
ta zona que esté atravesando. 



PRINT SHOP 
COMPANION 

Los habituales de INPUT ya sabéis 
que muchas veces nos gusta comentar 
programas que aunque no sean los 
clásicos juegos consideramos puede ser 
interesante que los lectores conozcan su 
existencia. Hace poco publicamos un 
artículo sobre software para impresoras. 

En él comentábamos un programa de 
ta casa BERKELEY. muy parecido al 
PRINT MASTER de 
B^pDERBUND. Finalmente, esta 
última acabó denunciando por «plagio» 
a ta primera. Denuncia que ganó. 

Por lo que pudiera suceder 
BORDERBUND decidió ampliar 
considerablemente su programa. El 
resultado de esa decisión es el PRINT 
SHOP COMPANION. En él se 
incorporan una docena más de nuevos 
tipos de letras, un generador de 




THE PRINT SHOP 
COMPANION 



FONT EDITOR 



f¡3 



FONTS (tipos), un generador de 
fondos de papel, un generador de 
RECUADROS, de F1LLS y, por 
último, un generador de gráficos que 
permite recuperar los dibujos generados 
con DODDLE y algunas más!" 



DRO AMPLIA 
HORIZONTES 

Parece ser que la prestigiosa firma 
australiana Melbourne acaba de ser 
comprada por la destacada casa 
inglesa Mastertronic. 

Aunque el precio no nos ha sido 
comunicado parece ser que la suma 
ha sido muy, muy sustanciosa, 
recordad que algunos títulos míticos 
para algunos micros provienen de 
esta casa, baste mencionar el 
Exploding Fisí I y II, Hobbit, etc. 

Parece que la casa Dro Soft 
empezará a partir de ahora a 
comercializar los productos de esta 
prestigiosa firma. 



ACCOLADE CAMBIA 
DE DUEÑO 

Tom Frixina, el antiguo Chairman 
de la excelente casa Accoladc, ha 
abandonado tan famosa firma. A 
partir de ahora se hará cargo de la 
misma el segundo de a bordo, que 
recordaréis era ex programador de la 
famosa casa Acti visión. 

Esperemos que ios cambios de esta 
compañía no harán cambiar la 
calidad de los programas que ya son 
clásicos por el esmero que muestran 
en la calidad gráfica y la animación. 
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MASTERS DEL 
UNIVERSO 

• US GOLD ■ ARCADE 

Muchas han sido las adaptaciones 
de películas y de máquinas 
recreativas transportadas al 
ordenador. Pero hasta ahora nunca 
habíamos visto un programa de 
ordenador, como el que os 
presentamos, basado en los infantiles 
muñecos de MASTERS DEL 
UNIVERSO. 

El protagonista, como siempre, 
eres tú, investido ahora con los 
atuendos de GRAYSKULL, el 
intrépido héroe desfacedor de 
entuertos y en lucha constante por 
devolver la paz y la libertad al 
mágico reino de ETERNIA. 

El malvado antagonista, que hará 
todo lo posible para destruirte, es 
SKELETOR, señor de una legión de 
infames y pérfidos esbirros y dueño 
del feudo de SNAKE. 

Este, robando una mágica gema, 
ha sembrado el caos y conquistado tu 
supuestamente inconquistable 
castillo, ambicionando dominar el 
universo con siniestros propósitos. 

Nuestra misión será recuperar la 
joya y devolver el bienestar al 
mundo. Pero antes de lograr llevar a 
cabo nuestro objetivo deberemos 
afrontar una continua pesadilla de 




batallas y trampas, todo en favor del 
bien. 

Solos ante el peligro, deberemos 
buscar, en primer lugar, al brujo 
ORKO, fiel amigo nuestro, que 
quedó encerrado en una torre del 
castillo por un error de los conjuros 
que lanzó contra las maléficas hordas 
que atacaban al castillo de 
GRAYSKULL. Una vez rescatado ' 
dicho mago, nos será de gran ayuda 
si queremos evitar ser alcanzados por 
los innumerables sortilegios y 
conjuros que nos enviará 
SKELETOR. Sólo nosotros podemos 
rescatarle y sólo él puede ayudarnos. 




Ésa será nuestra más importante 
misión, antes de alcanzar la libertad 
del territorio de ETERNIA. 

Como habréis podido imaginar, 
este juego se desarrolla en medio del 
fabuloso castillo de GRAYSKULL. 
Safas, mazmorras, torres, almenas... 
serán nuestro objetivo. De paso, 
todo ello sembrado de trampas y 
demoníacos enemigos, miembros de 
la guardia de SKELETOR. Contra 
ellos la única arma de la que 
disponemos es la ESPADA 
DESTRUCTORA , que atomizará 
todos los poderes malignos antes de 
llegar a buen fin nuestra tarea. 

Os advertimos- por último, de una 
cosa más: atención a las flechas, que 
nos irán quitando energía vital. 
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PARK PATROL 

• FIREBIRD ■ ARCADE 

Hay que ver qué cosas más raras 
han pasado en el parque 
PAPATOETOE. 

El antiguo guardián del parque ha 
tenido una crisis de nervios y el 
parque no puede quedar sin 
vigilante; hace falta un sustituto. 
Esperamos que quieras aceptar el 
reto de ser el nuevo guardián del 
lugar. 

Lo único malo del parque es que 
está plagado de serpientes, 
hipopótamos, y otras bestias salvajes 
que tendrás tiempo de sobra de 
conocer. 

Tu trabajo es conservar el lugar 
limpio y tranquilo, evitar accidentes 
cuidando de que 
los bañistas no se 
extravíen, o salvar 





los que se hallen 
en peligro (en este 
caso aparecerá 
un HELP 
parpadeando en la 
parte inferior de 
la pantalla). 

Ojo, porque el 
parque está repleto 
de rubíes de valor 




que te darán puntos y también ve 
con cuidado con las lanchas; el río 
que bordea PAPATOETOE es muy 
peligroso y plagado de misteriosas 
rocas qué harán que quizás vuelque 
el barco en el que lleves al pobre 
bañista que hayas salvado. Recuerda 
que tú no sabes nadar. 

Una vez más Firebird, la gran 
multinacional del software, nos ha 
presentado un juego de calidad, que 
combina múltiples escenarios y 
diferentes acciones, a fin de que no 
te aburras. La originalidad del juego, 
concebido en un parque, también 
merece destacarse. 

Con toda seguridad muchos de 
vosotros os vais a encandilar frente a 
vuestra pantalla, intentando 
co ntrol a r a e so s animales que , 
cuando los veis en el zoo de vuestra 
localidad tan solo parecen seres 
somnolientos. 
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DESTROYER 

• EPYX ■ JUEGO 



▲ DISCO 



Para jugar con este programa debes 
tener en cuenta que el Destructor 
que comandas desplaza 3.050 
toneladas, dispone de 16.000 galones 
de agua potable y sus 60.000 caballos 
te permitirán desplazarlo a 36 nudos 
marinos de velocidad si la mar es lo 
suficiente mansa, y con una 
autonomía de crucero de unas 6.000 
millas. 

Además disponemos de un buen 
arsenal bélico, del que destacan: 5 
cañones de 50 mm, 10 antiaéreos, 7 
cañones de 20 mm, 10 torpedos del 



juegos de Epyx (con el Gi-JOE que 
todos conocéis) que solamente saldrá 
en formato disco, ya que 
continuamente recurre a cargar 
pantallas desde ei disco, que dicho 
sea de paso, utiliza ios famosos 
ficheros VORPAL de los que 
hablamos en un número anterior. 
Son en total 15 las pantallas que se 
obtienen tecleando un código de dos 
dígitos en una línea de estado que 
aparece en la parte inferior de la 
pantalla, así obtendrás la vista del 
radar, o bien, una preciosa pantalla 
de estado de la nave que te será de 
ayuda para remendar situaciones de 
peligro. 






Según la misión, ¡as pantallas por las 
que puedas optar van cambiando, 
verás como desde ía pantalla del 
puente puedes observar como se van 
acercando ios aviones y cómo vas 
acertando con tu batería antiaérea. 
El grafismo es realmente excelente, 
y la animación, tal como viene 
siendo tradición en Epyx, se puede 
calificar, sin exageración, como 
soberbia. Una vez más, esta firma 
de software no ha dejado de 
sorprendernos con esta supernovedad 
de la que ofrecimos oportunamente 
una primicia en la sección 
SOFTACTUAL1DAD. 
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21, 2 raíles de ejectores de cargas de 
profundidad dotados de 10 
lanzaderas. Todo esto e incluso más 
te será necesario para poder llevar a 
cabo Con aígiina probabilidad de 
éxi to i a misión q ue te acaba de 
encomendar la marina americana en 
un momento: destruir el máximo de 
barcos, submarinos, transportes, etc. 
del enemigo. 

Efectivamente, las posibies misiones 
que te podrán ser encomenlladas, 
son desde la caza de un submarino 
hasta la participación en un bloqueo 
naval, pasando por la escolta de un 
convoy, o ei rescate de una goleta. 
Éste es quizás uno de los pocos 
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KONG 

• OCEAN ■ ARCADE 

Vale la pena preguntarse por qué se 
ha hablado tan poco en los medios 
especializados en video juegos, sobre 
uno tan conocido como este que 
comentamos. 

Kong. eí protagonista, es un 
juguetón gorila que se ha encariñado 
tanto de tu amiga que la ha raptado. 
Como eres un hombre valiente y 
ante todo caballeroso deberás ir a 
rescatarla y para ello vencer a! gorila 
en cada una de las cinco fases de que 
consta este juego. 
En la primera fase Kong te pondrá 

difícil y peligrosa 




la escalada hasta 
donde se encuentra tu novia. 
Mientras Kong te tirará barriles, lo 
difícil es saltarlos, pero cuando haya 
más de uno y seas capaz de saltarlos, 
verás que obtendrás más puntos: 500 
por dos objetos y 800 por tres o más. 
Aunque si lo que quieres es recoger 
puntos no cabe duda de que 
obtendrás muchos más si logras subir 
a toda prisa evitando coger unos 
martillos que verás colgados del 
techo y que te permitirán aplastar los 
barriles. La segunda fase es quizás la 
más difícil de todas y deberás fijarte 
mucho en el momento en que pasa el 
martillo que te tira siempre, con muy 
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SUPER HUEY II 

m US GOLD ■ SIMULADOR DE VUELO 

Aquí nos encontramos frente a uno 
de los principales simuladores de 
vuelo para helicópteros del mercado. 
Está concebido como una emulación 
del famoso UH2X, incorporando 
más de 50 comandos y ayuda para el 
vuelo, además de una completa serie 
de opciones que más adelante vamos 
a describir detalladamente. 
Sin duda, el elemento distintivo de 
éste programa es la diversidad de 
misiones, tanto suicidas como de 
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rescate en zonas peligrosas. En las 
misiones suicidas deberás impedir 
que un loco y peligroso terrorista 
logre destruir las bases de una 
determinada área de la que se íe ha 
encargado la protección. Las 
misiones de rescate tienen como 
escenario exóticos lugares que van 
desde el Polo Norte hasta una 
plataforma petrolífera en medio 
del Pacífico. La verdad es 
que éste es un helicóptero 
muy versátil y esto hace que 
sean muchos los mandos que 
debemos controlar y los indic 
dores de los que debemos 
estar atentos. Pero en ios 
momentos de mayor difi- 
cultad podemos hacer uso del 
automático para concentrar nuestros 
esfuerzos en tareas como la extinción 
de incendios. 

Bien seguro que los aficionados a los 
simuladores de vuelo sabrán 




reconocer la calidad 
de este programa. Además podrán 
gozar de toda la información 
necesaria para pilotaje del 
helicóptero gracias a un completo 
manual del que se nos hace entrega 
a! comprar el programa. 



MAD NURSE 

• FIREBIRD ■ JUEGO 

El parvulario se ha convertido en un 
manicomio de la noche a la mañana. 
Tú, como canguro especializado, 
deberás cuidar, mientras no pierdas 
la paciencia y la energía, de tres 
plantas repletas de tiernos y 
angelicales infantes. 
Los ingenuos querubines intentarán 
hacerte el trabajo imposible por 
medio de inocentes travesuras tales 
como: salirse de la cuna, ingerir 
biberones sin prescripción facultativa 
o, en el mejor de los casos, meterse 
en ios ascensores para que tu tarea 
resulte más insoportable. Sus salidas 
en grupo harán, en más de una 
ocasión, que prefieras graves 
amarguras. Tus únicas armas para 
contrarrestar tan infernal ofensiva 
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serán unas botellas de gas 
tranquilizante y un ascensor prér-á- 
porter pa a cambiar de plantas. 
Conforme los vas metiendo en sus 
cunas verás cómo 
van apareciendo 
cada vez más y 
más legiones de 
incansables niñitos. 
La locura se irá 
apoderando de ti. 
Practicando de 
manera 

perseverante, ya . 
estarás en 
condiciones de 
apreciar por ti 
mismo si, en lugar 
de convertirte en 
una niñera «presa 



de !a locura», te constituyes en un 
«canguro» de nervios de acero 
ante las diabluras de los pequeños. 
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• MASTERTRONíC 



ARCADE 



Será éste un programa que hará las 
delicias de los amantes del manejo 
del joystick: vagaremos, a gran 
velocidad, por un escenario repleto 
de hostiles hordas de atacantes, 
disparando sin cesar en el intento de 
acabar, al precio que sea, con ellas. 
Tiros cruzados, disparos megatónicos 
nos harán el trabajo más difícil de lo 
qué inicia] mente pensábamos. 
Los gráficos, 

dentro de la „. ,~^L*¿^*~- - 

temática y dei 
planteamiento, son 
bastante buenos. 
El movimiento e 
hipervelocidad, 
alucinantes. 
Como dato 
.ilustrativo, te 
informamos que 
¡yod. en 
castellano, 
significa 
«manada». 
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CURSE OF 
SHERWOOD 

• MASTERTRONIC 



ARCADE 



mwmt'ty mp ..ni 1 'n 



Robín de los Bosques debe expulsar 
de la foresta al malvado Culi. 
Pero realmente hay poco que hacer- 
contra tan pérfido personaje; lo 




único y primordial es encontrar un 
exorcismo que será el que logre 
evaporar a tan lamentable individuo. 
Los gráficos recuerdan bastante al 
programa ROBIN DE 
SHERWOOD: el scroll del 
protagonista está muy bien realizado 
sobre un fondo negro que representa 
al bosque. Las dificultades que 
atravesaremos serán numerosas y 
difíciles: el bosque está plagado de 
peligros, entre ellos las infames 
trampas de los sicarios a sueldo de 
CULT que disparan sus certeros 
dardos antes de preguntar quien 
eres. Suerte y atención a los puentes, 
esconden innumerables trampas. 
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Cambio z "5-3—35 en disco para C-64. 
Salvador Pou. P.° Dr. Maragas n.° 204. 
' £ 5 T í 382 10). Barcelona. 



Vendo C-64, Datassete C2N, 400 pro- 
: '-- -- t 2 joystick, revistas 

y libros sobre Commodore. Todo por 
35.000 pts. Narciso Quintana Varó. 
1 ■:: -- :== 1 5 ' : . Cerdanyola. Bar- 
celona. TI: 6916646. 



Compro C-64, cassette y joystick; inter- 
'- : :. canias Midicomposer 
o similar. Gabriel 
Díaz. Apdo. 93045. Barcelona 08080. TI : 



Intercambio programas de todo tipo en 
- "-= " : - : v "-54. Dispongo de una am- 
- 1 ■ t. í: ::s programas. David Ra- 
■ ■ ■ . = I Nuria, 79, 1.° 1. a Monteada 
: r - 381 10 Barcelona. TI: 5641203 



:=-Jcho SIMON'S BASIC con 
instrucciones. TI : (93) 3356333 a partir de 
tes 21.20 b. Amancio Pérez. Barcelona. 



' :T-:ambio de programas para el C-64. 
L ■ Tías novedades. Jorge Peña. Avd. 
Páratelo, 114, 5.", 2. a , esc. dcha. Barce- 
forg 08015. TI: 3299281. 



Vendo C-64, datassette, manual del 
usuario (castellano), libros especializa- 
eos (2), revistas, juegos muy buenos y 
programas de utilidades. Todo en per- 
fecto esta do.,vPre ció a convenir. Eduardo 
_ . i-gambide/ C/ Gasset, 23. Puebla del 
Caramiñaf. La Coruña. TI: (981} 830410. 



Cambiamos programas y juegos para 
el C-64 (preferentemente de calidad), 
interesados ponerse en contacto con 
Vanel Soriano. C/ Castellar, 82. Saba- 
dell. Barcelona TI: (93) 7160730. 



Vendo impresora SEIKOSHA GP-100VC 
especial commodore. Como nueva. Por 
sólo 25.000 pts. Regalo además 300 
fuegos en cinta para el C-64. Llamar 
mañanas de 8 a 3. TI: (93) 3023200 ext. 
: : : . Gabriel Reina. 



azoco 

Me gustaría forma un Club de amigos 
del C-64 para cambiar ideas para la 
compra-venta y el intercambio de jue- 
gos. Los chicos/as tienen que tener una 
edad entre los nueve y los trece años. 
A ser posible que vivan cerca de Sant 
Andreu. Juan Antonio Fdez. C/ Condesa 
Pardo Bazán, 15, Ate. 3. a . Barcelona 
08027. TI: 3498113, 



Cambio todo tipo de programas para el 
C-64. También me interesan pequeños 
trucos. Luis Tapia Jiménez. C/ NR Los 
Príncipes. La Fontanilla, 3. 41009 Sevi- 
lla. 



Intercambio utilidades en disco para el 
C-64, C-128 y CP. M. Antonio González. 
C/ Lorena, 65-67 7.°, 2. a . 08031 Barce- 
lona. TI: (93) 3592300. 



Vendo material para el C-64, 128. Hay 
revistas, libros y juegos. Si os interesa 
dirigiros a: Oscar Fdez. Oralld. Pza. La 
Fortaleza, 11, 4.°. 24400 Ponferrada. 
León. TI: (987) 418573. 



Ofrezco 10 juegos a elegir por el pro- 
grama MAGIC DESK I, en cinta. David 
Guerrero Díaz. C/ Emilio Santacana, 5. 
Algeciras. Cádiz. 



Cambio/vendo juegos para el C-64. Po- 
seo últimas novedades. Llamar TI: 
(968) 590357 o escribir a: Tomás Fuen- 
tes Méndez. Avda. Constitución, 63. 
Mazarrón (30870) Murcia. 



Cambio programas en cinta y disco 
para el C-64 y 128. Xavi Sanahuja, An- 
guera. C/Jurats, 5, 4.° 43205 Reus. 



Cambio/vendo programas para el 
C-64 en cinta. Poseo las últimas nove- 
dades, precios muy asequibles. Luis 
San José Fernández. C/ General She- 
lly, 25, 3." D 47013 Valladolid. TI: (983) 
277371. 



Club Intercommodore con más de 50 

socios espera que tú también te apun- 
tes, para ser más. C. I. C. C/ Algorfa, 9 
Buzón, 9. 28019. Madrid. 



Vendo C-64 (nuevo diseño) junto con 
Datasette 1530, ambos con embalajes 
originales, manuales en español e in- 
glés y en perfecto estado de conserva- 
ción. Por 55.000 pts. Juan Muñoz Falcó. 
Avd. Suecia, 4, 30. Valencia. 46010. TI: 
(96) 3699571. 



Intercambio programas para el C-64, 
trucos, experiencias con C-128. Los 
programas preferentemente en turbo. 
Hilario García Ostos. O General Queipo 
de Llano, 14. Peñarroya Pueblonuevo 
Córdoba. TI: (957) 560231. " 



Intercambiamos juegos, utilidades o 
experiencias. Club de Usuarios de 
Commodore 64. Tenemos últimas no- 
vedades. Felipe Carrero. Cuarteles, 142 
4.° B. TI: 8920746. Aranjuez. Madrid. 



Intercambio juegos en cinta para C-64. Po- 
seo más de 500, entre ellos parte de las 
últimas novedades. Luis Poves Valencia 
C/ Prado, 12, 12.° 2. ú L'Hospitaíet de Llo- 
bregat. 08907 Barcelona. TI: (93} 3355405. 



Cambio juegos-utilidades para el C-64/ 
C-128. Sólo discos. Enviar lista a: Javier 
Covarrubias Morales. C/ Portalegre, 27 
2.° dcha. 28019 Madrid. 



Intercambio programas para el C-64. 
Poseo más de 200 programas de gran 
calidad. Interesados enviar lista. Pedro 
Navarro. P.° Almogávares, 28. Saba- 
dell. Barcelona. 



Club de amigos para el C-64 intercam- 
bia programas en cassette. Tenemos 
más de 100. Creación de una revista 
para los socios con mapas, cargadores, 
trucos. José. Apartado de Correos, 195. 
Lérida. 



Vendo para el C-64 los juegos: Fist y 
Beach Heat II por mil pts. También los 
cambio por otros que me interesen: 
Preguntar por Kelius. TI: (93) 2396149. 



Desearía cambiar juegos o aplicaciones 
para el C-64, noches de 8.30 a 10 h TI- 
OS) 6640456. Barcelona. 
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\ los me jores relatos de . 
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Cinco minutos antes de comprar un juego a 87 5 ■*» 
• Echale un vistazo a estos juegos de 875^ 




VERSION CASSETTE 



SO FTWARE 



zafiro SOFTWARE DIVISION paseo de la Castellana, 28016 Madrid 
Tei á59 3QGd Tel Barna 209 ü 65 Telex: 22690 ZAFIR E 



SIGUENOS EL JUEGO 



